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, 7766 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 ...

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
Multimedia

Raspberry Pi als Digital-Signage-Computer

(1)

Information von BassFishFox zum Thema Multimedia ...

Windows Update

Novemberpatches und Nadeldrucker bereiten Kopfschmerzen

(15)

Tipp von MettGurke zum Thema Windows Update ...

Windows 10

Abhilfe für Abstürze von CDPUsersvc auf Win10 1607 und 2016 1607

(7)

Tipp von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Router & Routing
Freigabe aus anderem Netz nicht erreichbar (31)

Frage von McLion zum Thema Router & Routing ...

Visual Studio
Vb.net-Tool zum Erzeugen einer Outlook-E-Mail (24)

Frage von ahstax zum Thema Visual Studio ...

Batch & Shell
Batch Programm verhalten bei shoutdown -p (19)

Frage von Michael-ITler zum Thema Batch & Shell ...

Windows Netzwerk
Netzwerk Neustrukturierung (15)

Frage von IT-Dreamer zum Thema Windows Netzwerk ...