Forums Neueste Beiträge
 

GetOpenFilename eine Pfad definieren

14/07/2008 - 14:49 von Leuenberger Christian | Report spam
Ich möchte gerne zu GetOpenFilename den Pfad vordefinieren.
Z.B. D:\Excel\test (Der Benutzer sollte Bereits in dem Verzeichnis sein,
wo er das File findet)

Ist dies möglich?


Function ProgrammePfad() As Variant
Dim sFiles As String
sFiles = "Text-Files (*.txt), *.txt, "
sFiles = sFiles & "Word-Files (*.doc), *.doc, "
sFiles = sFiles & "Excel-Files(*.xls), *.xls"
ProgrammePfad = Application.GetOpenFilename(sFiles)
End Function


Gruss
Christian
 

Lesen sie die antworten

#1 Michael Mueller
14/07/2008 - 14:58 | Warnen spam
"Leuenberger Christian" schrieb im Newsbeitrag
news:
Ich möchte gerne zu GetOpenFilename den Pfad vordefinieren.
Z.B. D:\Excel\test (Der Benutzer sollte Bereits in dem Verzeichnis sein,
wo er das File findet)

Ist dies möglich?



IIRC mit ChDir das Verzeichnis wechseln!?

HTH
Michi

Ähnliche fragen