Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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, 7275 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 ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Batch & Shell
gelöst Nach bestimmten Ordner namen suchen und in einem anderem Pfad kopieren (8)

Frage von erdgnrft zum Thema Batch & Shell ...

Windows Netzwerk
WebDAV Server in Windows über UNC Pfad mounten (2)

Frage von Scar61 zum Thema Windows Netzwerk ...

VB for Applications
Explorer mit Pfad und einer bestimmten Ansicht öffnen (1)

Frage von StefanKittel zum Thema VB for Applications ...

VB for Applications
gelöst Bestimmte Spalten aus CSV-Datei auslesen (VBS) (9)

Frage von Gurkenhobel zum Thema VB for Applications ...

Heiß diskutierte Inhalte
Hardware
Laptop ins Salzwasser gefallen (18)

Frage von Marcel94 zum Thema Hardware ...

Switche und Hubs
LAG zwischen Cisco SG300 und Dlink DGS1100 herstellen - wie? (13)

Frage von White-Rabbit2 zum Thema Switche und Hubs ...

Hardware
Lenovo Yoga 500 über angeschlossene USB Tastatur booten (13)

Frage von thomasreischer zum Thema Hardware ...

Viren und Trojaner
Wie werde ich den Mist "fanli90" wieder los? (12)

Frage von Taumel zum Thema Viren und Trojaner ...