Not great for FTP as no error checking done - same could be achieved with a .cmd file using less code with error checking. E.G

rem %1 is file to be xferred %2 is suffix eg xfr %3 host name %4 is username %5 is password
cd c:\xfr
rem IF EXISTS THEN DELETE THE PREVIOUS FILES
dir c:\xfr\%1.%2 >nul && del c:\xfr\%1.%2
dir c:\ftpcmd\%1.ftp >nul && del c:\ftpcmd\%1.ftp
echo open %3 >c:\ftpcmd\%1.ftp
echo %4>>c:\ftpcmd\%1.ftp
echo %5>>c:\ftpcmd\%1.ftp
echo get %1.%2 >>c:\ftpcmd\%1.ftp
echo bye>>c:\ftpcmd\%1.ftp
ftp -s:c:\ftpcmd\%1.ftp >c:\scripts_logs\%1FTP.log
cd c:\scripts
findstr /c:"226 Transfer complete" C:\scripts_logs\%1FTP.log
if %ERRORLEVEL% GTR 0 goto FAIL
exit 0
:FAIL
rem - send a mail message or whatever you want
exit 1

Forgot to mention - liked the script for deleting files - i shall use that

Thanks for the code.

Well... I continue feeling that implementing a shell/awk in the unix/linux is better and more powerfull, but sometimes anybody require work in WindowsX, your code is great, easy and elegant.

Tks

Pepe

Great article.
My collection of VBScipt and batch files has grown over the years as I automate the many tasks that I am responsible for. I've tried designing full-blown applications to handle redundant tasks, but find that when company procedures or standards change frequently, it's easier to edit a VBS or BAT file than recompile an app. (of course I'm mostly a SQL developer, not an app developer)

The following code from a VBS file that will "Get Latest" version of scripts from a SourceSafe Project folder. (Of course, it might be a little easier to use a batch file for this, but this can be slightly modified to prompt the user for input.)

Option Explicit

'Gets the latest version of files in a SourceSafe project folder.

Dim sSourcePath, sTargetPath, sUsername, sPassword

'EDIT THESE VARIABLES:
'You can optionally use the "InputBox" function to prompt for these.
sSourcePath = "$/Database/Product/Release800" 'from SourceSafe
sTargetPath = "C:\SourceSafe\GetLatest" 'File System path
sUserName = "steve" 'for SourceSafe
sPassword = "password"

Call GetLatest( sSourcePath, sTargetPath, sUserName, sPassword )
MsgBox( "'Get Latest' completed!", vbOKOnly+vbInformation, "Get Latest" )

'--------------------------------------------------------
Sub GetLatest( sSourcePathSS, sTargetPathFs, sUser, sPwd )

 Dim sCmd, sSSExePathFs, sSSIniPathFs, sSSLogin, sComspec
 Dim oShell 'Command shell
 Set oShell = CreateObject("WScript.Shell")
 Dim fso 'File System Object
 set fso = CreateObject("Scripting.FileSystemObject")

 sTargetPathFs = CreateDir( sTargetPathFs )
 
 'Create login switch:
 sSSLogin = " -Y" & sUser & "," & sPwd & " "

 'Variables that will likely not change often:
 sComspec = "%COMSPEC% /c "
 sSSIniPathFs = "\\server2\ProductABC\Test\VSS"
 sSSExePathFs = "\\server2\ProductABC\Test\VSS\WIN32\"

 ' ------------------------------
 ' rem Command Line access to SourceSafe:
 ' set ssdir=%ggssinifile%
 ' ss cp "%ggssfold%" -Y%ggssuser%,%ggsspass%
 ' ss get * -gtul%ggTarget% -Y%ggssuser%,%ggsspass% "-o&SSGetLatest.out"
 ' ------------------------------
 
 'Use command line to set SourceSafe INI file:
 sCmd = sComspec & "set SSDIR=" & sSSIniPathFs
 Call oShell.Run( sCmd, 1, true )

 'Use command line to set the desired SourceSafe Project folder:
 sCmd = sComspec & sSSExePathFs & "ss cp """ & sSourcePathSS & """" & sSSLogin
 Call oShell.Run( sCmd, 1, true )

 'Build and run the 'Get Latest' command:
 sCmd = sComspec & sSSExePathFs & "ss get * -gtul"
 sCmd = sCmd & fso.GetFolder( sTargetPathFs ).ShortPath
 sCmd = sCmd & sSSLogin & " ""-o&SSGetLatest.out"""
 Call oShell.Run( sCmd, 1, true )

 Set oShell = Nothing
 Set fso = Nothing

End Sub

'--------------------------------------------------------
Function CreateDir( sPath )
'Creates a folder if one doesn't exist.
 Dim fso 'File System Object
 set fso = CreateObject("Scripting.FileSystemObject")

 if Not fso.FolderExists( sPath ) then
  'Be sure parent exists, before creating child:
  Call CreateDir( fso.GetParentFolderName( sPath ) )
  fso.CreateFolder( sPath )
 end if
 
 set fso = Nothing
 CreateDir = sPath
End Function

In the FTP script, don't forget to delete the FTP answer file when done with it (clean up the temp files) and unistantiate the objects to prevent possible memory leaks.

Happy Scripting!

I almost forgot, in response to Archie's comment above about no error checking, you could use the Exec method instead of run. That way you could parse the std.out string for error verbiage and take appropriate action (Email, Net Send, etc...). An excellent site for command refernce for VBScript, including WSH and ADO is DevGuru.com.

Happy Scripting!