Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

VBS Pfad ueberpruefen

Frage Entwicklung VB for Applications

Mitglied: Butterblume

Butterblume (Level 1) - Jetzt verbinden

11.06.2008, aktualisiert 17:54 Uhr, 7662 Aufrufe, 5 Kommentare

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.
Mitglied: tacker
11.06.2008 um 15:54 Uhr
salü butterblume.

das kannst du mit folgendem codeschnipsel:

01.
Dim fso 
02.
Set fso = CreateObject("Scripting.FileSystemObject") 
03.
if fso.FolderExists("C:\Ordner\") then 
04.
msgbox("Der Pfad existiert nicht!") 
05.
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
Bitte warten ..
Mitglied: Butterblume
11.06.2008 um 16:41 Uhr
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.
Bitte warten ..
Mitglied: miniversum
11.06.2008 um 17:39 Uhr
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.
Bitte warten ..
Mitglied: bastla
11.06.2008 um 17:52 Uhr
... wobei ich die Schreibweise
01.
If Not fso.FolderExists("C:\Ordner\") Then
bevorzuge.

Grüße
bastla
Bitte warten ..
Mitglied: Butterblume
11.06.2008 um 17:53 Uhr
Ich habs so gemacht
01.
   Dim fso 
02.
 
03.
   Set fso = CreateObject("Scripting.FileSystemObject") 
04.
 
05.
   If (fso.FolderExists("K:\S C H U L E\M122\Husi\Origenal.txt")) Then 
06.
      MsgBox ("Ordner ist vorhanden") 
07.
   Else 
08.
      MsgBox ("Ordner ist nicht vorhanden") 
09.
   End If
so funktionierts.
Bitte warten ..
Ähnliche Inhalte
VB for Applications
gelöst Wo ist der Fehler in diesem VBS Codeausschnitt? (2)

Frage von gabrixl zum Thema VB for Applications ...

Entwicklung
gelöst Dateiname auf bestimme Zeichenfolge überprüfen? (8)

Frage von matzetto zum Thema Entwicklung ...

Windows 10
gelöst Pfad wird über Skript nicht gefunden, im Explorer jedoch schon (7)

Frage von Fred0rik zum Thema Windows 10 ...

Router & Routing
Pfsense - QoS überprüfen

Frage von MegaGiga zum Thema Router & Routing ...

Neue Wissensbeiträge
Sicherheit

Millionen Euro in den Sand gesetzt?

(3)

Information von transocean zum Thema Sicherheit ...

Sicherheit

How I hacked hundreds of companies through their helpdesk

Information von SeaStorm zum Thema Sicherheit ...

Erkennung und -Abwehr

Ccleaner-Angriff war nur auf große Unternehmen gemünzt

(10)

Information von Lochkartenstanzer zum Thema Erkennung und -Abwehr ...

Heiß diskutierte Inhalte
Humor (lol)
gelöst Freidach Beitrag (40)

Frage von Penny.Cilin zum Thema Humor (lol) ...

Firewall
gelöst Firewall Firmeneimsatz (22)

Frage von wiesi200 zum Thema Firewall ...

Multimedia & Zubehör
gelöst 8 GB USB Stick besitzt nur noch 4 MB Kapazität (13)

Frage von Gwahlers zum Thema Multimedia & Zubehör ...