Dialogo con Crea Directory

'Aprire una Dialog con Aggiungi directory



dim FileName as string

FileName = fnShellBrowseForFolderVB()


' **************************************************************


Function fnShellBrowseForFolderVB() As String
'Invoca la finestra di sistema di Windows

'per la scelta di una directory.


Dim objShell As Object
Dim objFolder As Object

objShell = CreateObject("Shell.Application")
'Ora mostra la finsetra di sistema.

objFolder = objShell.BrowseForFolder(0, "Scegli una directory", 0, 0)
'Se l'oggetto non e' nullo, estraggo il pathname completo

If (Not objFolder Is Nothing) Then
fnShellBrowseForFolderVB = objFolder.ParentFolder.ParseName(objFolder.Title).Path
End If
'Pulisco gli oggetti utilizzati ed esco.

objFolder = Nothing
objShell = Nothing

End Function