Auslesen von Dateien eines Ordners

Hallo liebe Gemeinde,

ich würde gerne den Ordner Documents auslesen um zu sehen ob sich darin PDF dateien befinden.
leider habe ich es mit meinem Script nur geschafft alle Dateien anzuzeigen. Könnte mir da bitte jemand behilflich sein wie ich nur *.pdf Dateien aufliste?

Hier mein bisheriger Code

 
et WshShell = WScript.CreateObject("WScript.Shell")  
UserName = WshShell.ExpandEnvironmentStrings("%UserName%")  
V =  "C:\users\" & Username & "\Documents\"  
Set FSO = CreateObject("Scripting.FileSystemObject")  
Set Verzeichnis = FSO.GetFolder(V)
For Each Datei In Verzeichnis.Files 
DateiListe = Datei.Path & vbCr & DateiListe
Next
WScript.Echo(DateiListe)

Grüße und Danke schonmal für die Hilfe ;)

Please also mark the comments that contributed to the solution of the article

Content-Key: 271453

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

Printed on: April 25, 2024 at 00:04 o'clock

5 Comments

Latest comment

Set FSO = CreateObject("Scripting.FileSystemObject")  
set WshShell = CreateObject("WScript.Shell")  
UserProfile = WshShell.ExpandEnvironmentStrings("%UserProfile%")  
V =  Userprofile & "\Documents"  

For Each Datei In FSO.GetFolder(V).Files
    If LCase(FSO.GetExtensionName(Datei.Path)) = "pdf" then  
        DateiListe = DateiListe & Datei.Path & vbNewline
    End if
Next
WScript.Echo(DateiListe)

Gruß jodel32

Vielen Dank! Funktioniert super. Ist es möglich dann auch nur diese Dateien in einen anderen Ordner zu kopieren ?

Set FSO = CreateObject("Scripting.FileSystemObject")  
set WshShell = CreateObject("WScript.Shell")  
UserProfile = WshShell.ExpandEnvironmentStrings("%UserProfile%")  
V =  Userprofile & "\Documents"  

For Each Datei In FSO.GetFolder(V).Files
    If LCase(FSO.GetExtensionName(Datei.Path)) = "pdf" then  
        DateiListe = DateiListe & Datei.Path & vbNewline
        Datei.Copy "C:\Zielordner\"  
    End if
Next
WScript.Echo(DateiListe)

Auf den abschließenden Backslash beim Zielordner achten.
https://technet.microsoft.com/en-us/library/ee176983.aspx

Ich Danke dir !

Leider habe ich da noch ein problem

Set FSO = CreateObject("Scripting.FileSystemObject")  
set WshShell = CreateObject("WScript.Shell")  
Set oShell = WScript.CreateObject("WScript.Shell")  

UserProfile = WshShell.ExpandEnvironmentStrings("%UserProfile%")  
V =  Userprofile & "\Documents"  
V2 =  Userprofile & "\Documents\"  


	For Each Datei In FSO.GetFolder(V).Files
		If LCase(FSO.GetExtensionName(Datei.Path)) = "pdf" then  
			DateiListe = DateiListe & Datei.Path & vbNewline
			Datei.Copy "C:\Mail\"  
		End if
	Next
	WScript.Echo(DateiListe)
	
		oShell.Run "C:\Mail\Mail.bat",0,True  
		FSO.deleteFile "C:\Mail\*.pdf"  
		Pfad = V2 & "*" & ".pdf"  
		FSO.DeleteFile(Pfad)

WScript.Echo("Script Ende")  

so weit bin ich nun. Jedoch würde ich gerne wenn keine Dateien im Ordner sind das restliche Script mit einer meldung abbrechen.
Leider scheitere ich auch hier :/

Grüße

Set FSO = CreateObject("Scripting.FileSystemObject")  
set WshShell = CreateObject("WScript.Shell")  
Set oShell = WScript.CreateObject("WScript.Shell")  

UserProfile = WshShell.ExpandEnvironmentStrings("%UserProfile%")  
V =  Userprofile & "\Documents"  
Dateiliste = ""  
	For Each Datei In FSO.GetFolder(V).Files
		If LCase(FSO.GetExtensionName(Datei.Path)) = "pdf" then  
			DateiListe = DateiListe & Datei.Path & vbNewline
			Datei.Copy "C:\Mail\"  
		End if
	Next
	WScript.Echo(DateiListe)
	if Dateiliste <> "" then  
		oShell.Run "C:\Mail\Mail.bat",0,True  
		FSO.deleteFile "C:\Mail\*.pdf"  
		FSO.DeleteFile(V & "\*.pdf")  
        else
            msgbox "Keine PDF-Dateien gefunden",vbExclamation  
	end if
WScript.Echo("Script Ende")  

Wird das hier jetzt zum Grundkurs VBS ??
http://www.w3schools.com/vbscript/vbscript_examples.asp

German solved Question VB for Applications Development

Hotly discussed

Check of ZFW Firewallgleixnerd - 5 Comments

Wireguard VPN on UDM Pro behind Fritzbox - Handshake did not completejstricker - 3 Comments