Set fso = CreateObject(„Scripting.FileSystemObject“)
Set o = fso.GetFolder(„M:\Test_16_VBS\Datapage“)
Set da = o.Files
counter = o.Files.Count
'msgbox counter
if counter > 1 then
msgbox „Es darf nur eine Datei im Ordner vorhanden sein!“
WScript.Quit
end if
For Each d in da
s = s & d.path
'Mach was mit der Datei
s=""
next