tuxhunt3r
Goto Top

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

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.

Content-Key: 65549

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

Printed on: June 19, 2024 at 00:06 o'clock

Member: AndreasHoster
AndreasHoster Aug 06, 2007 at 11:36:13 (UTC)
Goto Top
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.
Member: TuXHunt3R
TuXHunt3R Aug 06, 2007 at 11:42:14 (UTC)
Goto Top
Der Code-Block hat momentan einen Bug, der Eintrag ist leer.

Falls du Code posten wolltest, poste diesen doch bitte schnell ohne code-Block
Member: TuXHunt3R
TuXHunt3R Aug 06, 2007 at 11:57:48 (UTC)
Goto Top
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?
Member: AndreasHoster
AndreasHoster Aug 06, 2007 at 12:10:39 (UTC)
Goto Top
Klar.
Starte das Script mit cscript //NoLogo Pfad_des_VBS_Skriptes
Member: TuXHunt3R
TuXHunt3R Aug 06, 2007 at 14:53:01 (UTC)
Goto Top
Herzlichen Dank!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!