Code anpassen
08.01.2008 14:02:17
Andre´
mit nachfolgenden Code habe ich die Möglichkeit nur eine Datei auszuwählen die genau test.txt lautet.
Sub Test()
Application.ScreenUpdating = False
Dim strFile As String
Dim strPath As String
With Application.FileDialog(3)
.InitialFileName = "C:\test.txt"
.InitialView = 2
If .Show = -1 Then
strFile = .SelectedItems(1)
strPath = Mid(strFile, InStrRev(strFile, "\"))
MsgBox strPath
'hier wird mir folgendes angezeigt:
Else
MsgBox "Nix gewählt!"
End If
End With
Application.ScreenUpdating = True
End Sub
Wie muss der Code lauten, damit nur die eigentliche Datei angezeigt wird also ohne \
Test.txt
Irgendwie muss die Zeile strPath = Mid(strFile, InStrRev(strFile, "\")) anders lauten.
Ich hoffe mir kann Jemand helfen.
Danke im Voraus
MFG Andre
Anzeige