Pfad vom Verzeichnis

18/09/2009 - 13:21 von Peter | Report spam
Hallo NG,

ich möchte den Pfad von einem Verzeichnis an eine Variable/Constante
übergeben.
Da der Pfad sich àndert kann ich die nicht vorgeben sondern muss das
Verzeichnis suchen.
Könnte mir da jemand einen Tipp geben?

Gruß Peter
 

Lesen sie die antworten

#1 Peter
19/09/2009 - 17:43 | Warnen spam
Hallo Ransi,

vielen Dank. So etwas habe ich gesucht.

Gruß Peter

Option Explicit

Public Sub Aufruf()
MsgBox get_Folder("Was soll ich machen?")
End Sub

Public Function get_Folder(Optional capt, Optional StartVerzeichniss)
Dim objShell As Object
Set objShell = CreateObject("Shell.Application").BrowseForFolder(0&, capt, &H200, StartVerzeichniss)
If Not objShell Is Nothing Then get_Folder = objShell.Self.Path
End Function

Public Sub Ordnersuche()
Dim dat
Set dat = Application.FileDialog(msoFileDialogFolderPicker)
With dat
   .Title = "Netzwerk"
   .InitialFileName = "C:\" 'oder was auch immer
    If .Show = -1 Then MsgBox .SelectedItems(1) 'Zur weiteren Verwendung
    End With
End Sub

ransi

Ähnliche fragen