Top-Themen

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

Frage Microsoft

GELÖST

ordner mit vbs anzeigen

Mitglied: geneon

geneon (Level 1) - Jetzt verbinden

11.04.2007, aktualisiert 15:32 Uhr, 6063 Aufrufe, 3 Kommentare

Hallo erstamal!

ich versuche verzweifelt mit vbs alle dateien und ordner aus c in eine txt datei zu speichern!

also so ungefhähr das wenn in c die ordner:

windows
progamme
und test.txt

sollen die drei sachen in einer txt datei stehen!

Danke im vorraus!

Rafi
Mitglied: AndreasHoster
11.04.2007 um 14:41 Uhr
Dieses Skript macht alle Ordner und Dateien aller Laufwerke und gibt die Namen auf der Konsole aus. Kann man ja aber anpassen.

set fs = CreateObject("Scripting.FileSystemObject")
set drives = fs.Drives
' * Alle Laufwerke durchgehen *
for each drive in drives
' * Nur Festplatten *
if (drive.drivetype=2) then
'* Root setzen
set folder=fs.getfolder(drive.driveletter & ":\")
'* Alle Verzeichnisse durchgehen
VerzDurchgang drive.driveletter & ":", folder
end if
' * Ende alle Laufwerke durchgehen *
next


' *
'
* Funktionen & Prozeduren *
'
*

sub VerzDurchgang(Pfad, Verzeichnis)
Pfad=Pfad & "\"
'* Alle Files des Verzeichnisses durchgehen
FilesDurchgang Pfad, Verzeichnis
'* Alle Unterverzeichnisse durchgehen
for each folder in Verzeichnis.Subfolders
' * Was jetzt tun? Mal name anzeigen
wscript.echo folder.name
'* Verzeichnisdurchgang für jedes Unterverzeichnis aufrufen
VerzDurchgang Pfad & Verzeichnis.Name, folder
next
end sub

sub FilesDurchgang(Pfad, Verzeichnis)
'* Alle Dateien durchgehen
for each file in Verzeichnis.files
' * Was jetzt tun? Mal Name anzeigen
wscript.echo file.name
next
end sub
Bitte warten ..
Mitglied: bastla
11.04.2007 um 15:29 Uhr
Hallo geneon!

Im Prinzip wie bei AdreasHoster, nur diesmal mit vollem Pfad und Ausgabe in Textdatei:
01.
'ListAllFilesAndFolders2TextFile.vbs 
02.
Set fso = CreateObject("Scripting.FilesystemObject") 
03.
Set Liste = fso.OpenTextFile("D:\Liste.txt", 2, True) 
04.
DoFolders fso.GetFolder("C:\") 
05.
Liste.Close 
06.
WScript.Echo "Fertig." 
07.
Sub DoFolders(Folder) 
08.
If LCase(Folder.Name) <> LCase("System Volume Information") Then 
09.
	For Each File In Folder.Files 
10.
		Liste.WriteLine File.Path 
11.
	Next 
12.
	For Each SubFolder In Folder.SubFolders 
13.
		Liste.WriteLine SubFolder.Path 
14.
		DoFolders(SubFolder) 
15.
	Next 
16.
End If 
17.
End Sub
Sollte wirklich nur der Name gewünscht sein, jeweils in den "Liste.WriteLine"-Zeilen "Path" durch "Name" ersetzen.

Die Verschönerungsarbeiten hinsichtlich Parameterübergabe für Startpfad und Ausgabedatei überlasse ich Dir.

Grüße
bastla
Bitte warten ..
Mitglied: geneon
11.04.2007 um 15:32 Uhr
klappt super!

Herzlichen dank an beide! für die schnelle antwort!

Gruß

Rafi
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
Fenstername von Prozess anzeigen lassen (vbs)
Frage von goodbytesBatch & Shell3 Kommentare

Hallo, mittels des folgenden Codes kann ich einen bestimmten Prozess "abschießen": Wenn ich die Datei mittels IrfanView geöffnet habe ...

VB for Applications
VBS Ordner erstellen - wenn nicht vorhanden!
gelöst Frage von freshman2017VB for Applications1 Kommentar

Hallo, ich würde gerne einen Ordner erstellen, wenn dieser nicht vorhanden ist, nachfolgende VBS funktioniert Ich würde jedoch mit ...

Visual Studio
Vb.net Ordner in Outlook anzeigen
gelöst Frage von ahstaxVisual Studio2 Kommentare

Hallo, ich würde gerne aus einem vb.net-Programm heraus, mit dem ich Outlook 2010 starte und nutze, einen bestimmten (aber ...

iOS
Apple Mail Ordner Anzeige
Frage von beamenwaerschoeniOS2 Kommentare

Hallo. Ich habe seit ein paar Tagen auf dem iphone die Anbindung an einen Exchange Server. Dort exisiteren jedoch ...

Neue Wissensbeiträge
Linux

Meltdown und Spectre: Linux Update

Information von Frank vor 1 TagLinux

Meltdown (Variante 3 des Prozessorfehlers) Der Kernel 4.14.13 mit den Page-Table-Isolation-Code (PTI) ist nun für Fedora freigegeben worden. Er ...

Tipps & Tricks

Solutio Charly Updater Fehlermeldung: Das Abgleichen der Dateien in -Pfad- mit dem Datenobject ist fehlgeschlagen

Tipp von StefanKittel vor 2 TagenTipps & Tricks

Hallo, hier einmal als Tipp für alle unter Euch die mit der Zahnarztabrechnungssoftware Charly von Solutio zu tun haben. ...

Sicherheit

Meltdown und Spectre: Wir brauchen eine "Abwrackprämie", die die CPU-Hersteller bezahlen

Information von Frank vor 2 TagenSicherheit12 Kommentare

Zum aktuellen Thema Meltdown und Spectre: Ich wünsche mir von den CPU-Herstellern wie Intel, AMD oder ARM eine Art ...

Sicherheit

Meltdown und Spectre: Realitätscheck

Information von Frank vor 2 TagenSicherheit10 Kommentare

Die unangenehme Realität Der Prozessorfehler mit seinen Varianten Meltdown und Spectre ist seit Juni 2017 bekannt. Trotzdem sind immer ...

Heiß diskutierte Inhalte
Batch & Shell
Meltdown Microsoft Prüf Script - .zip Datei leider leer
gelöst Frage von MasterBlaster88Batch & Shell13 Kommentare

Hallo zusammen, ich patche gerade unsere Windows Server bzgl. der Meltdown Lücke. Patch vorhanden, Reg Keys gesetzt Um das ...

Batch & Shell
Shell-Skript - Syntax error: Unterminated quoted string
Frage von newit1Batch & Shell13 Kommentare

Hallo Ich schreibe ein Skript das eine CSV-Datei in eine mySQL Datenbank schieben soll. Bekomme nach start des Skrips ...

E-Mail
Erfahrungen mit hMailServer gesucht
Frage von it-fraggleE-Mail10 Kommentare

Hallo, meine neue Stelle möchte einen eigenen Mailserver. Ich als Linuxkind war direkt geistig mit Postfix dabei. Leider wollen ...

Windows Server
DNS Forwarding an andere Domäne
Frage von detox91Windows Server9 Kommentare

Hallo, für Testzwecke haben wir bei uns eine zweite Windows Domäne (B.local) aufgebaut, welche komplett unabhängig und isoliert der ...