18.01.2013 Views

VBScript Reference Manual for InduSoft Web Studio

VBScript Reference Manual for InduSoft Web Studio

VBScript Reference Manual for InduSoft Web Studio

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

<strong>InduSoft</strong> <strong>Web</strong> <strong>Studio</strong> <strong>VBScript</strong> <strong>Reference</strong> <strong>Manual</strong><br />

Example<br />

Const OverWrite = TRUE<br />

Const DeleteRdOnly = True<br />

SourceFile = “C:\data\MyData.MDB”<br />

SourceFiles = “C:\data\*.MDB”<br />

DestPath = “C:\Backup”<br />

DeleteFile = “C:\backup\Mydata.MDB”<br />

DeleteFiles = “C:\backup\*.MDB)<br />

Set objFS = CreateObject(“Scripting.FileSystemObject”)<br />

‘ Copy a single file to a new folder, overwrite any existing file in destination folder<br />

objFS.CopyFile (SourceFile, DestPath, OverWrite)<br />

‘ Copy a set of files to a new folder, overwrite any existing files in destination folder<br />

objFS.CopyFile (SourceFiles, DestPath. OverWrite)<br />

‘ Delete a file<br />

objFS.DeleteFile(DeleteFile)<br />

‘ Delete a set of files in a folder<br />

objFS.DeleteFile(DeleteFiles, DeleteRdOnly)<br />

‘ Move a file to a new folder<br />

objFS.MoveFile(SourceFile, DestPath)<br />

‘ Move a set of files to a new folder<br />

objFS.MoveFile(SourceFiles, DestPath)<br />

‘ Rename a file<br />

objFS.MoveFile(SourceFile, “C:\data\MyData041406.MDB”)<br />

‘ Verify if a file exists<br />

If objFS.FileExists (SourceFile) Then<br />

Set objFolder =objFS.GetFile(SourceFile)<br />

MsgBox “File Exists “ & objFolder ‘ Will display “File Exists “ and Path + File<br />

Else<br />

MsgBox “File does not exist”<br />

End If<br />

<strong>InduSoft</strong>, Ltd. 35

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!