Dim Fi, Fso
Set Fso = CreateObject("Scripting.FileSystemObject")
Set Fi = Fso.GetFile("e:\wsh\test.vbs")
Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshSysEnv = WshShell.Environment("SYSTEM")

Dim Frage
Dim Rueckgabe
Dim Meldung
Dim Dateigroesse

Dateigroesse = round ( Fi.Size / (1024),1)

IF Dateigroesse > 0.1 Then
Frage = "Ihre Datei ist zu groß (" & Dateigroesse & " kB)" & Chr(10) & "Wollen Sie diese jetzt ...?"

Rueckgabe = MsgBox (Frage, +vbYesNoCancel +vbDefaultButton3 +vbQuestion, "Dateigröße")

Select Case Rueckgabe

   Case vbYes

     Meldung = "Sie haben auf Ja geklickt !" 

   Case vbNo

     Meldung = "Sie haben auf Nein geklickt !"

   Case vbCancel

     Meldung = "Sie haben auf Abbrechen geklickt !" 

End Select

MsgBox Meldung, vbExclamation, "Rückgabe"  

Else

WScript.Echo "Dateigröße: " & Dateigroesse & " MB"

End if

WScript.Quit()