Dateipfad auslesen
08.05.2007 17:50:40
René
ich hab da ein kleines Problem, nix wildes, aber vielleicht weiß jemand von Euch was auf die Schnelle.
Ich hab ein Makro mit dem ich mit einem FilePicker-Dialog nen Dateipfad hole.
Nun möchte ich aber anstatt P:\00_Beispielordner\XYZ\Beispieldatei.doc
den Pfad in der Form
\\Nv07001\Daten\00_Beispielordner\XYZ\Beispieldatei.doc
haben.
Bisher habe ich folgendes Makro:
Sub Main()
Dim Datei As FileDialog ' *****
Set Datei = Application.FileDialog(msoFileDialogFilePicker) ' *****
Dim Datei_ As String ' *****
With Datei
.AllowMultiSelect = False
If .Show = -1 Then
Datei_ = .SelectedItems.Item(1)
End If
UserForm1.TextBox1.Value = Datei_
End With
Set Datei = Nothing
End Sub
Hat von Euch jemand einen besseren Vorschlag?
Grüsse
René