Ích bin noch nicht ganz schlau geworden, ob du noch mehr Code benötigst, aber wenn es dir nur darum geht den Dateinamen zu ermitteln, wie wäre es dann mit einem FileDialog?
(Ist natürlich nur interessant, wenn die Datei bereits Existiert, oder du erstellst diese dann über rechtsklick im FileDialog)
Das ganze sieht dann wie folgt aus:
Dim fd As FileDialog
Dim file As String
Set fd = Application.FileDialog(msoFileDialogOpen)
With fd
'Mehrfachauswahl verbieten
.AllowMultiSelect = False
.Title = "Zieldatei wählen..."
'Filter löschen
.Filters.Clear
'Neue Filter hinzufügen
.Filters.Add "Textdatei", "*.txt", 1
.Filters.Add "Alle Dateien anzeigen", "*.*", 2
'Prüfen ob Abgebrochen wurde
If .Show = -1 Then
file = .SelectedItems(1)
Else
file = ""
End If
End With
Set fd = Nothing
Dabei wäre in der Variable file nun dein Dateipfad enthalten, mit dem du arbeiten könntest.
Gruß
Jeansy
|