Hallo,
ich möchte den Pfad bzw einen Ordner über einen Dialog auswählen um ihn dan weiter zu verwenden.
Verwende ich den untenstehenden Code, wie in vielen Bsp im net, kommt das Auswahlfenster.
Wähle ich dann einen Ordner und klicke ok, MsgBox mit Pfad,und dann kommt das Auswahfenster wieder... Bin da in einer Schleife und komm aus dem If-Block nicht raus.
Hab sämtliche Varianten mit dem Befehl probiert...
BITTE um eure Hilfe, danke!
ich möchte den Pfad bzw einen Ordner über einen Dialog auswählen um ihn dan weiter zu verwenden.
Verwende ich den untenstehenden Code, wie in vielen Bsp im net, kommt das Auswahlfenster.
Wähle ich dann einen Ordner und klicke ok, MsgBox mit Pfad,und dann kommt das Auswahfenster wieder... Bin da in einer Schleife und komm aus dem If-Block nicht raus.
Hab sämtliche Varianten mit dem Befehl probiert...
BITTE um eure Hilfe, danke!
VB.NET-Quellcode
- Public Function GetExcelfolder() As String
- With Application.FileDialog(msoFileDialogFolderPicker)
- .AllowMultiSelect = False
- .Title = "Bitte Ordner wählen"
- .InitialFileName = ""
- .InitialView = msoFileDialogViewThumbnail
- .ButtonName = "OK"
- If .Show = -1 Then
- GetExcelfolder = .SelectedItems(1)
- MsgBox GetExcelfolder
- End If
- End With
- End Function