Hjælp til færdiggørelse af VB applikation

kan du bruge en .vbs fil, så skulle denne virke, med hensyn til sletning og loggen.

option explicit
dim sourceFolder
Dim objFSO,cont,logfile
dim wshShell,objLog

sub log(msg)
    objLog.writeline(msg)
end sub

sub doDelete(sourceFolder)
    dim folder,fileCol,folderCol,fil
    Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
    set folder = objFSO.getFolder(sourceFolder)
    set fileCol = folder.Files
  For Each fil in filecol
        if fil.DateLastModified < now()-2 then              '------------------ tjekker sidste modefisering -----------
              log "Slettet filen: " & SourceFolder&"\"&fil.name'------------------ skriver i loggen -----------
        objFSO.DeleteFile SourceFolder&"\"&fil.name '-------------  Advarsel sletter filen  --------------         
        end if
    next   
   
    set fileCol = nothing
    set folderCol = nothing
    set folder = nothing
end sub

sourceFolder="C:\test"  '---------------------------------- Ret Hvorskal slettes ----------------------
logfile = "C:\log" & date() & ".txt"        '----------------------------- Ret hvor loggen er og hvad den hedder -----------

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
  set objLog = objFSO.CreateTextFile(logfile, True)
  WshShell.Popup "Begynder sletning", 2,"VENT", 0
  doDelete(sourceFolder)
  WshShell.Run("%windir%\notepad.exe " &logfile) '------------------ viser loggen -----------

set objLog = nothing
Set objFSO = nothing
Set WshShell = nothing

Hej Kabak

Har du lyst til at se hele filen for at danne dig en idé om hvad det går ud på

V.h.
Souidr
souidri@yahoo.dk