ich weiß so eine ähnlich Frage ist schon öftres hier aufgetaucht aber irgendwie bin ich zu blöd sie zu kapieren! ;-)
Also, Problem ist folgendes:
Set objFolder = objShell.BrowseForFolder(0, "Wählen Sie einen Ordner aus:",BIF_RETURNONLYFSDIRS Or BIF_NEWDIALOGSTYLE)
If Not objFolder Is Nothing Then
If Right(objFolder.Self.Path, 1) = "\" Then
GetFolder = objFolder.Self.Path
Else: GetFolder = objFolder.Self.Path & "\"
End If
Else
'// "Abbrechen" gewählt
End If
Diese Routine lässt mich einen Ordner auswählen. So schön so gut, aber wie kann ich in einem bestimmten Pfad die Suche beginnen?! Einfach mit Chdir("c:\") klappt es nicht!!
Das selbe auch bei:
fileOpen = Application.GetOpenFilename("Draft File,*.drf", _
, "Please choose a Draft-File")
Wie kann ich hier einen Pfad setzen in dem die Suche begonnen wird. Ich will aber auch noch unterhalb dieses Verzeichnisses kommen können.
Danke und ich vertraue auf euch