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

Mit VBScript alle Dateien (NUR DIE DATEIEN, keine Ordner) eines Laufwerks ausgeben

Frage Entwicklung VB for Applications

Mitglied: TuXHunt3R

TuXHunt3R (Level 3) - Jetzt verbinden

06.08.2007, aktualisiert 16:53 Uhr, 9978 Aufrufe, 5 Kommentare

Hallo Forum

Ich suche eine Möglichkeit, mit VBScript alle Dateien auf einem Laufwerk (d.h. alle Dateien in allen Unterordnern) auszugeben. Die Ordner sollen nicht ausgegeben werden, nur die Dateien mit den dazugehörigen Pfaden.
Mitglied: AndreasHoster
06.08.2007 um 13:36 Uhr
Z.B. so:
' * Benötigte Objekte erzeugen *
Set fs = CreateObject("Scripting.FileSystemObject")
Set Folder = fs.GetFolder("D:")
VerzDurchgang Folder

' *
'
* Funktionen & Prozeduren *
'
*

Sub VerzDurchgang(Verzeichnis)
On Error Resume Next
FilesDurchgang Verzeichnis
For each folder in Verzeichnis.Subfolders
If err.number = 0 then
VerzDurchgang folder
End If
Next
End Sub

Sub FilesDurchgang(Verzeichnis)
' * Fehlerhandling abschalten, wegen Zugriffsverletzungen
On Error Resume Next
For each file in Verzeichnis.files
' * Was jetzt tun?
wscript.echo file.Path
Next
End Sub

Zugriffs-Fehler werden allerdings nicht abgefangen, sondern nur ignoriert.

EDIT: Mal wieder in die fehlerhafte Code Anzeige reingelaufen, deswegen als normaler Text.
Bitte warten ..
Mitglied: TuXHunt3R
06.08.2007 um 13:42 Uhr
Der Code-Block hat momentan einen Bug, der Eintrag ist leer.

Falls du Code posten wolltest, poste diesen doch bitte schnell ohne code-Block
Bitte warten ..
Mitglied: TuXHunt3R
06.08.2007 um 13:57 Uhr
Herzlichen Dank für die schnelle Info.

Ein Problem ist noch:

Folgender Titel wird ebenfalls noch angezeigt:

Microsoft (R) Windows Script Host, Version 5.6
Copyright (C) Microsoft Corporation 1996-2001. Alle Rechte vorbehalten.


Den Titel kann ich aber nicht gebrauchen, gibt es eine Möglichkeit, diesen nicht anzuzeigen?
Bitte warten ..
Mitglied: AndreasHoster
06.08.2007 um 14:10 Uhr
Klar.
Starte das Script mit cscript //NoLogo Pfad_des_VBS_Skriptes
Bitte warten ..
Mitglied: TuXHunt3R
06.08.2007 um 16:53 Uhr
Herzlichen Dank!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Bitte warten ..
Ähnliche Inhalte
VB for Applications
gelöst Vbscript zum Anfügen von Text in scenery.cfg Datei (27)

Frage von aletri zum Thema VB for Applications ...

Windows 10
Löschen von Ordner mit Dateien (3)

Frage von jerry32 zum Thema Windows 10 ...

Windows Server
gelöst Freigegebener Ordner "Eigene Dateien" (8)

Frage von JensDND zum Thema Windows Server ...

VB for Applications
gelöst VBScript und OR (5)

Frage von Invisan zum Thema VB for Applications ...

Neue Wissensbeiträge
Windows Tools

Zeit für Energiesparmodus, Bildschirmabschaltung etc. schnell anpassen

Anleitung von hannsgmaulwurf zum Thema Windows Tools ...

Linux Netzwerk

Ping und das einstellbare Bytepattern

(1)

Erfahrungsbericht von LordGurke zum Thema Linux Netzwerk ...

Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(4)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Heiß diskutierte Inhalte
Firewall
Richtige Grundeinstellungen der Pfsense für mein Netzwerk (12)

Frage von Spitzbube zum Thema Firewall ...

Switche und Hubs
gelöst Cisco 2960x Stacking über mehrere Etagen (12)

Frage von b3scher zum Thema Switche und Hubs ...