Dateisuche in Verzeichnis
26.02.2008 16:26:05
Markus
ich prüfe mit folgendem Code, ob der in der InputBox gewählte Dateiname im Zielverzeichnis bereits vorhanden ist.
Sub dateisuche()
Dim sPfad As String
neuName = InputBox("Unter welchem Namen soll die Datei gespeichert werden?")
sPfad = ThisWorkbook.Path & "\Dokumentation A" & "\" & neuName & ".xls" 'Pfad für Dateisuche"
If Dir(sPfad) "" Then
MsgBox "Datei ist vorhanden"
Else
MsgBox "Datei ist NICHT vorhanden "
End If
End Sub
Als Ergebnis wird immer geliefert, dass die Datei NICHT vorhanden ist, obwohl die Datei bereits im Verzeichnis liegt...
Was mache ich falsch?
Danke, Markus