VBS Aktuellste Datei senden

Yaslaw

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

Hier mein funktionierender Test
Visual Basic:
'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
 

Neue Beiträge