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

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

Windows 7
gelöst Optische Laufwerke zeigen keine Dateien auf Datenträgern an (15)

Frage von kobusch zum Thema Windows 7 ...

Neue Wissensbeiträge
Viren und Trojaner

Neues Botnetz über IoT-Geräte

Information von certifiedit.net zum Thema Viren und Trojaner ...

Ubuntu

Ubuntu 17.10 steht zum Download bereit

(3)

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(8)

Information von thomasreischer zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Router & Routing
Externe IP von innen erreichbar machen (15)

Frage von Windows10Gegner zum Thema Router & Routing ...

Windows Installation
Windows 10 neu installieren (12)

Frage von imebro zum Thema Windows Installation ...

Windows Server
Frage zu Server Rack (11)

Frage von rainergugus zum Thema Windows Server ...