hi, ich versuche zu überprüfen, ob es einen absoluten Pfad gibt. Aber das klappt noch nicht:
Code:
Sub Pfadchecker()
Dim Pfad1 As String
Dim Pfad2 As String
Pfad1 = Worksheets("Rech").Range("A33")
Pfad2 = Worksheets("Rech").Range("B33")
if exist Pfad1 Then GOTO START1
if exist Pfad1 Then GOTO START2
: START1
MsgBox ("Pfad1 existiert")
MsgBox ("Pfad2 existiert")
End Sub
Codezeilen 4 und 5 werden als falsch markiert von VBA.
Super geht das auch mit Dateien?
Also statt:
Code:
If Dir("C:\programme",vbDirectory)<>"" Then
MsgBox "Vorhanden!"
End If
So jedenfalls nicht:
Code:
If File("C:\programme\datei.exe",vbFile)<>"" Then
MsgBox "Vorhanden!"
End If
So auch nicht:
Code:
Sub Pfadchecker()
Dim Pfad1 As String
Dim Pfad2 As String
Pfad1 = Worksheets("Rech").Range("A32")
Pfad2 = Worksheets("Rech").Range("B32")
If Dir("Pfad1") <> "" Then
MsgBox "Vorhanden! G"
End If
If Dir("Pfad2") <> "" Then
MsgBox "Vorhanden! H"
End If
End Sub
Von hier abgeguckt:
http://www.herber.de/forum/archiv/144to1...tiert.html
Code:
If Dir("C:\Eigene Dateien\Excel\abc.xls") <> "" Then
MsgBox "Datei vorhanden"
GELÖST:
Die Anführungszeichen waren doppelt gemoppelt:
Code:
Sub Pfadchecker()
Dim Pfad1 As String
Dim Pfad2 As String
Pfad1 = Worksheets("Rech").Range("A32")
Pfad2 = Worksheets("Rech").Range("B32")
If Dir(Pfad1) <> "" Then
MsgBox "Vorhanden! G"
End If
If Dir(Pfad") <> "" Then
MsgBox "Vorhanden! H"
End If
End Sub
Hi,
was steht in den Zellen nur der Name ohne Endung?
dann
If Dir("C:\Eigene Dateien\Excel\abc.*") <> "" Then
Mit Dateiendung. Klappt jetzt - ich hatte die umschließenden Anführungszeichen doppelt gsetzt. Danke!