VBA - gibt es den Pfad?

[o0Julia0o]

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.

[chris-ka]

Hi,

http://www.herber.de/forum/archiv/452to4...anden.html

oder einen anderen von diesen hier
https://www.google.at/search?ei=KtAoW-skzI-yAaX1n6gI&q=%C3%BCberpr%C3%BCfen+ob+Pfad+vorhanden+vba&oq=%C3%BCberpr%C3%BCfen+ob+Pfad+vorhanden+vba&gs_l=psy-ab.3..0i22i30k1l3.1388.2236.0.2460.4.4.0.0.0.0.111.425.0j4.4.0....0...1.1.64.psy-ab..0.4.424....0._vhxugXJUdk

[o0Julia0o]

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

[chris-ka]

Hi,

was steht in den Zellen nur der Name ohne Endung?

dann

If Dir("C:\Eigene Dateien\Excel\abc.*") <> "" Then

[o0Julia0o]

Mit Dateiendung. Klappt jetzt - ich hatte die umschließenden Anführungszeichen doppelt gsetzt. Danke!