Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Vorhanden Pfad prüfen | Herbers Excel-Forum


Betrifft: Vorhanden Pfad prüfen von: Tommy
Geschrieben am: 15.01.2010 12:33:21

Hallo zusammen,

ich benötige ein Makro, dass prüft, ob ein Verzeichnis vorhanden ist.

z.B. C:\Programme\Wurstfachverkäufer\

Wenn der Pfad nicht vorhanden ist, soll er zum errorhandler.

So hatte ich es aufgebaut:


sub Verzeichnis()
on error goto errorhandler
DIM Pfad as String
Pfad = "c:\Programme\Wurstfachverkäufer\"

if pfad = "c:\Programme\Wurstfachverkäufer\" = False then goto errorhandler

Call Start

exit sub

errorhandler:
msgbox("geht nicht!")

End sub


Habt Ihr einen Lösungsansatz für mich? Weiß da einfach nicht weiter... :-(

Vielen Dank vorab...

Lieben Gruß
Tommy

  

Betrifft: Vorhanden Pfad prüfen: mit Dir() von: Rudi Maintaire
Geschrieben am: 15.01.2010 12:36:05

Hallo,

Sub Verzeichnis()
On Error GoTo errorhandler
Dim Pfad As String
Pfad = "c:\Programme\Wurstfachverkäufer\"
If Dir(Pfad, vbDirectory) = "" Then GoTo errorhandler
Call Start
Exit Sub
errorhandler:
MsgBox ("geht nicht!")
End Sub

Gruß
Rudi


  

Betrifft: AW: Vorhanden Pfad prüfen: mit Dir() von: Tommy
Geschrieben am: 15.01.2010 12:43:03

Super hat funktioniert. ;-)

Danke für deine Hilfe....

Gruß
Tommy


Beiträge aus den Excel-Beispielen zum Thema "Vorhanden Pfad prüfen"