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

gelöst ordner mit vbs anzeigen

Mitglied: geneon

geneon (Level 1) - Jetzt verbinden

11.04.2007, aktualisiert 15:32 Uhr, 6075 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
Humor (lol)
IoT-Gefahr: Smartes Aquarium leckt!
Information von Lochkartenstanzer vor 2 TagenHumor (lol)3 Kommentare

Moin, Die IoT-Manie hat weitere Opfer gefunden. Ein Casino-Leck durch ein smartes Aquarium: Allerdings haben sie kein Wasser, sondern ...

Router & Routing

Alte Fritzbox 7270 mit VPN und SIP-Telefonie hinter O2 Homebox 6641 als "Modem"

Erfahrungsbericht von the-buccaneer vor 2 TagenRouter & Routing3 Kommentare

Nun war es soweit: Auch O2 hat mich mit VOIP zwangsbeglückt. Heute am Privatanschluss, in 2 Wochen ist das ...

Sicherheit

Ungepatchte Remote Code Execution-Lücke in LG NAS

Information von kgborn vor 3 TagenSicherheit

Nutzt wer LG NAS-Einheiten? In den NAS-Einheiten der LG Network Storage-Einheiten gibt es eine sehr unschöne Schwachstelle, die einen ...

Windows Update

Neue Version KB4099950 NIC Einstellungen gehen verloren

Information von sabines vor 3 TagenWindows Update2 Kommentare

Es ist eine neue Version des KB4099950 verfügbar, die das Problem mit den verlorenen Netzwerkeinstellungen lösen soll. Das Datum ...

Heiß diskutierte Inhalte
Netzwerkmanagement
Netzwerkmanagment im Haus mit Switch, Panel und pfsense
gelöst Frage von CorraggiounoNetzwerkmanagement15 Kommentare

hi zusammen, wir sind gerade dabei das ganze Haus bzw. die einzelnen Zimmer mit netzwerkdosen zu versorgen. Vom Keller ...

Netzwerkgrundlagen
VLAN - Offene Fragen
Frage von KnettenbrechNetzwerkgrundlagen14 Kommentare

Hallo zusammen, ich befasse mich derzeit mit dem Thema VLAN. Hierzu habe ich schon einige Guides gelesen, einschließlich des ...

Google Android
Empfehlung: Android Ortungsapp
gelöst Frage von certifiedit.netGoogle Android13 Kommentare

Guten Morgen, grundsätzlich vorweg, ich wollte mich eben schlau machen, bzgl einer Ortungsapp, welche Androidbasiert einem anderen Androidsmartphone mitteilt, ...

Vmware
Server 2008 r2 vmware terminalserver
Frage von MasterCVmware12 Kommentare

Guten Abend zusammen, ich hoffe , dass einer von euch mir weiterhelfen kann ,bei meinem kack Problem ! Ist ...