✔ VBS Aktuellste Datei senden

[Janfil]

geht beides nicht, gleicher Error.

vllt mit sprungmarken?

 

[Yaslaw]

Da waren einige Dinge drin, die in VBS nicht ganz so simpel sind.
Pro Ordner ist nur eine Datei?

Hier mein funktionierender Test

'FileSystemObject öffnen
Dim fso: Set fso = CreateObject("Scripting.FileSystemObject")
Dim fld
Dim f
Dim lastFolder
Dim p
Const PRT_OUT = "C:\_TMP\ForumSandbox\t405718\Data"

Set lastFolder = Nothing
For Each fld In fso.GetFolder(PRT_OUT).SubFolders
	'Da der name immer gleich und sogar sortierbar ist, kann direkt der Ordnername verglichen werden
	If lastFolder Is Nothing Then
		Set lastFolder = fld
	elseIf fld.name > lastFolder.name Then
		Set lastFolder = fld
	End If
Next
If Not lastFolder Is Nothing Then
	If lastFolder.Files.Count > 0 then
		'//TODO: lastFile per email versenden
		For each f in lastFolder.Files
			msgbox f.path
		next
	End If
End If

 

[Janfil]

Ja es funktioniert soweit, Dankeschön für die schnelle Hilfe