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

WSH - Script zum durchsuchen eines Ordners nach bestimmten Dateiendungen

Mitglied: mo2402

mo2402 (Level 1) - Jetzt verbinden

16.09.2008, aktualisiert 19.09.2008, 10192 Aufrufe, 5 Kommentare

Hallo,

ich brauche ein WSH Script das mir Ordner nach bestimmten Dateiendungen durchsucht.
Ich habe dieses Script hier gefunden, nur bräuchte ich nun das "Jokerzeichen" damit er nicht nach "Datei.txt" sucht, sondern nach allen *.txt

Das Script habe ich soweit:
01.
strComputer = "." 
02.
Set fs = CreateObject("Scripting.FileSystemObject") 
03.
 
04.
Sub FileSearch(pfad) 
05.
  Set ordner = fs.GetFolder(pfad) 
06.
  Set dateien = ordner.files 
07.
  For Each datei In dateien 
08.
    If datei.Name  =  "Datei.txt" Then  
09.
		WScript.Echo datei.Name 
10.
    End If 
11.
 
12.
  Next 
13.
  Set unterordner = ordner.subfolders 
14.
  For Each uo In unterordner 
15.
    FileSearch(uo) 
16.
  Next 
17.
End Sub 
18.
 
19.
FileSearch("C:\DELL")
habe schon *, $ und % ausprobiert.
Mitglied: Biber
16.09.2008 um 12:59 Uhr
Moin mo2402,

dann ändere die Zeile
... 
If datei.Name = "Datei.txt" Then  
...
...auf...
...If  right(datei.Name, 4) = ".txt" Then  
...
...oder warte auf bastla.

Grüße
Biber
Bitte warten ..
Mitglied: bastla
16.09.2008 um 13:01 Uhr
Hallo mo2402!

"Jokerzeichen" damit er nicht nach "Datei.txt" sucht, sondern nach allen *.txt
... gibt es für diesen Zweck in VBS nicht, daher etwa so:
01.
Set fs = CreateObject("Scripting.FileSystemObject") 
02.
 
03.
Sub FileSearch(pfad) 
04.
Set ordner = fs.GetFolder(pfad) 
05.
Set dateien = ordner.files 
06.
For Each datei In dateien 
07.
    If LCase(fs.GetExtensionName(datei.Name)) = "txt" Then WScript.Echo datei.Path 
08.
Next 
09.
 
10.
Set unterordner = ordner.subfolders 
11.
For Each uo In unterordner 
12.
    FileSearch(uo) 
13.
Next 
14.
End Sub 
15.
 
16.
FileSearch("C:\DELL")
Da Du ja rekursiv suchst, fände ich die Ausgabe des gesamten Pfades einer gefundenen Datei sinnvoll (und habe das Script dahingehend geändert).

Das "LCase()" in Zeile 7 soll sicher stellen, dass auch zB eine "BLA.TXT" gefunden wird.

Grüße
bastla

@Biber: Sorry, habe in letzter Zeit etwas Verspätung ...
Bitte warten ..
Mitglied: mo2402
19.09.2008 um 10:35 Uhr
Super danke funktioniert super! Gibt es auch noch eine Function wie z.B. fs.GetFileSize oder so, damit ich die Größe der einzelnen Datein noch rausfinden kann?
Bitte warten ..
Mitglied: Biber
19.09.2008 um 11:27 Uhr
Moin mo2402,

gibt es...allerdings eher als Eigenschaft .Size des File-Objects
[= wäre oben:
oFile = fs.GetFile( datei.name)
Filesize= oFile.Size
...
]...
Diese Mimik wurde hier im Forum schon mehrfach durchdekliniert (z.B. hier).

Tipp: alle Möglichkeiten des FileSystemObjects bzw. des File-Objects findest Du via Suchmaschine.
Grüße
Biber
Bitte warten ..
Mitglied: bastla
19.09.2008 um 12:01 Uhr
... bzw, da ja die einzelnen Datei-Objekte ohnehin schon über die "For"-Schleife (ab Zeile 6) angesprochen werden, einfach
01.
Filesize = datei.Size
Zusatztipp: Auf dies(ey)er Seite findest Du einen Link zum Download der (deutschen) "script56.chm" ...

Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
Ubuntu

Schattenkopien eines bestimmten Ordners speichern

gelöst Frage von BrombaermetzgerUbuntu2 Kommentare

Hallo liebe Community, Dachte ich melde mich hier endlich mal an. Ich habe ein Problem, wo ich mit meinem ...

Batch & Shell

Duplikate innerhalb eines Ordners herausfinden trotz unterschiedlicher Dateiendung

Frage von DarkatohmBatch & Shell8 Kommentare

Hallo, ich möchte innerhalb eines Ordners alle Duplikate herausfinden, welche den gleichen Dateinamen haben. Dabei sollen sie aber auch ...

Batch & Shell

Durchsuchen von Unterverzeichnissen nach bestimmten Ordnern!

gelöst Frage von DeadseraphimBatch & Shell4 Kommentare

Hallo in die Runde, ich habe folgendes Problem: Im Verzeichnis: D:\Schriftverkehr befinden sich mehrere Unterverzeichnisse mit den Bezeichnungen: \Dokumentenklassen1\ ...

Batch & Shell

Dateien in einen Ordner zählen mit einer bestimmten Dateiendung

Frage von tommhiiBatch & Shell4 Kommentare

Hallo , ich hab da mal ne Frage ich möchte in einen bestimmten Ordner nur Dateien mit der Endung ...

Neue Wissensbeiträge
Internet

Datendealing im WWW Tracking Methoden immer brutaler

Information von sabines vor 7 StundenInternet

Interessanter Artikel zum Thema Tracking im WWW und die immer "besseren" Methoden des Trackings. Professor Arvind Narayanan (Princeton-Universität) betreibt ...

Erkennung und -Abwehr

Ups: Einfaches Nullzeichen hebelte den Anti-Malware-Schutzt in Windows 10 aus

Information von kgborn vor 19 StundenErkennung und -Abwehr

Windows 10 ist das sicherste Windows aller Zeiten, wie Microsoft betont. Insidern ist aber klar, das es da Lücken, ...

Windows 10

Windows 10 on ARM: von Microsoft entfernte Info - Klartext, was nicht geht

Information von kgborn vor 21 StundenWindows 10

Windows 10 on ARM ist ja eine neue Variante, die Microsoft im Verbund mit Geräteherstellern am Markt etablieren will. ...

Microsoft
TV-Tipp: Das Microsoft-Dilemma
Information von kgborn vor 21 StundenMicrosoft13 Kommentare

Aktuell gibt es in Behörden und in Firmen eine fatale Abhängigkeit von Microsoft und dessen Produkten. Planlos agieren die ...

Heiß diskutierte Inhalte
Server
Route-Befehl Unterstützung (unter CMD)
gelöst Frage von FKRR56Server34 Kommentare

Guten Tag , i.M. habe ich Probleme über den CMD-Route-Befehl ein Routing auf einen entfernten Server zuzulassen. Der Server ...

Windows 10
Windows 10 (1709) Tastur und Maus wieder einschalten?
Frage von LochkartenstanzerWindows 1028 Kommentare

Moin, Ich habe von einem Kunden einen Win10-Rechner bekommen, bei dem weder Tastatur noch Maus geht. Die Hardware funktioniert ...

Humor (lol)
Was könnte man mit einem Server machen? Idee gesucht
Frage von 2SeitenHumor (lol)15 Kommentare

Hey Zusammen Ich habe einen alten HP G2 Rackserver zu Hause rumliegen. 28GB Ram, 1xAMD Prozi mit etwa 2GHz. ...

Firewall
RB2011 Firewall Rule eine bestimmte Mac oder IP Adresse nicht zu blockieren
Frage von lightmanFirewall15 Kommentare

Hallo liebes Forum mit ihren Spezialisten. Ich habe meine Firewall so konfiguriert das kein Endgerät ohne meine Speziellen Erlaubnis ...