VBS Pfad ueberpruefen

Existenz eines Pfades überprüfen!

Hallo,
ich habe einen Vode zur Verschlüsselung einer .txt Datei geschrieben.
Mit Eingabebox wird der Pfad der Quelldatei eingegeben.
Wenn man keinen Pfad oder Cancel drückt, wird der Code weiterhinausgeführt.
Wie kann ich aber eine Überprüfung machen? So das, bei einer Unstimmigkeit Fehlermeldung (und kein Error) kommt z.B. (Dieser Pfad existiert nicht!) und das Programm beendet wird.

Danke für die Hilfe.

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 89634

Url: https://administrator.de/contentid/89634

Ausgedruckt am: 22.11.2024 um 19:11 Uhr

5 Kommentare

Neuester Kommentar

salü butterblume.

das kannst du mit folgendem codeschnipsel:

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")  
if fso.FolderExists("C:\Ordner\") then  
msgbox("Der Pfad existiert nicht!")  
end if

in den klammern natürlich die variable eingeben, in welche du den inhalt der inputbox zwischengespeichert hast!

selbiges gibt es natürlich auch um die verfügbarkeit einer datei zu überpfügen! --> fso.FileExists

grüsse tacker

Hallo tacker,

irgendwie passiert bei diesem Code gar nichts. Keine Reaktion beim Ausführen. Ich weiss auch nicht wieso.
Weder wenn der Pfad stimmt nocht wenn er nicht stimmt.

Bei mir funktioniert der Code, mit dem kleinen schöhnheitsfehler aller dings das die meldung kommt wen der Pfad existiert un dnicht umgekehrt.
Wenn du

if fso.FolderExists("C:\Ordner\") then

if fso.FolderExists("C:\Ordner\") = False then

änderst stimmt das aber.

... wobei ich die Schreibweise

If Not fso.FolderExists("C:\Ordner\") Then

bevorzuge.

Grüße
bastla

Ich habs so gemacht

   Dim fso

   Set fso = CreateObject("Scripting.FileSystemObject")  

   If (fso.FolderExists("K:\S C H U L E\M122\Husi\Origenal.txt")) Then  
      MsgBox ("Ordner ist vorhanden")  
   Else
      MsgBox ("Ordner ist nicht vorhanden")  
   End If

so funktionierts.