butterblume
Goto Top

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.

Content-Key: 89634

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

Ausgedruckt am: 29.03.2024 um 10:03 Uhr

Mitglied: tacker
tacker 11.06.2008 um 15:54:27 Uhr
Goto Top
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
Mitglied: Butterblume
Butterblume 11.06.2008 um 16:41:06 Uhr
Goto Top
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.
Mitglied: miniversum
miniversum 11.06.2008 um 17:39:38 Uhr
Goto Top
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
in
if fso.FolderExists("C:\Ordner\") = False then
änderst stimmt das aber.
Mitglied: bastla
bastla 11.06.2008 um 17:52:11 Uhr
Goto Top
... wobei ich die Schreibweise
If Not fso.FolderExists("C:\Ordner\") Then  
bevorzuge.

Grüße
bastla
Mitglied: Butterblume
Butterblume 11.06.2008 um 17:53:59 Uhr
Goto Top
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.