Kan man køre en .bat skjult i vbs ?

CreateObject("WScript.Shell").Run "CMD.EXE /x /c " & BatchFile & " " & FolderName&"\*.*", 0

Fyld dit kabinet med saft så skal du se løjer!!

PS! Hybensaft er specielt populært blandt alskens kabinetter!

Ranglen >> Smider du lige et svar ??

Kan du forresten svare på hvorfor dette script bliver ved med at øge forbruget af hukommelse med 4 KB for hver gang det looper ??

option explicit
dim SleepTimer, BatchFile, FolderName, FTP, Username, Password, FTP_Folder

FTP = "ftp server"
Username = "account"
Password = "pass"
FTP_Folder = "folder"

SleepTimer = 10 


BatchFile = "ftpconn.bat"
FolderName = "c:\logs\"& Year(now) &"\"& Monthname(Month(now))
SleepTimer = SleepTimer * 1000

sub FtpIT()
      CreateObject("WScript.Shell").Run BatchFile&" "&FTP&" "&Username&" "&Password&" "&FTP_Folder&" "&FolderName&"\*.*", 0, False
end sub
Dim objFSO,cont

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

do
FtpIT
        WScript.Sleep SleepTimer
        Loop

ranglen >> Svarer du ???

Sidste chance.....