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
Grüße und Danke schonmal für die Hilfe ;)
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 ;)
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 271453
Url: https://administrator.de/forum/auslesen-von-dateien-eines-ordners-271453.html
Ausgedruckt am: 23.12.2024 um 10:12 Uhr
5 Kommentare
Neuester Kommentar
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)
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)
https://technet.microsoft.com/en-us/library/ee176983.aspx
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")
http://www.w3schools.com/vbscript/vbscript_examples.asp