AceBIT

I am trying to write a script that can be run by Wise-FTP version 5.5.2 that would do
the following tasks:

1. Look in a directory and see if a file exists. If not pause for 10 minutes and try again.

2. Open a connection and upload the file if it exists.

3. If the file transfer was successful, close the connection and delete the file.

4. If the connection was unsuccessful, close the connection, don't delete the file.

5 Go back to 1.

Here is an example of what I started to work on, part of it using the Macro Recording....

Other pieces of the code are what I added and thought would work fine,,but dont

, *****************************************************

' VBS script generated by WISE-FTP 5
' Generated at: 4/6/2007 2:07:35 PM

' Creating Wise_FTP_Automation Object...
Set WiseFTP = CreateObject("wise_ftp.Wise_FTP_Automation")

' Dim LoopCount as integer
LoopCount = 1

Start_Here:
Do while LoopCount < 4
LoopCount = LoopCount + 1
' Connecting to "TEST HP3000" profile...
WiseFTP.ConnectToSiteWait "TEST HP3000"
' Uploading file "/,MGR.SCOP,TEMP/TESTHP3000.vbs" ...
WiseFTP.UploadFileWait "\\wfp\TEST HP3000\", "", "", "", "ftp", "C:\Temp\TESTHP3000.vbs", "TESTHP3000"
' Disconnecting from site "TEST HP3000" ...
WiseFTP.DisconnectFromSiteWait "\\wfp\TEST HP3000\"
wait 5
Loop

' ****************************************************************************************

I'm wondering if anybody out on the forum is doing anything like I said in 1,2,3,4, and 5 above, or if anybody has some script examples to be used with WISE-FTP.

Thanks in advance.

dave

Well, everything works with this script, until I add the ChrDir command, which works fine in MS Word/Excel Macros.

It would be nice if tech support can tell me if this can be done/not done, or provide some direction before I give up on Wise-FTP. Two emails sent and my second post to the forums, and still no response.

Support people????

Can this be done or do I need to a new product?

Here is the code that works until I add a ChrDir command...

' VBS script generated by WISE-FTP 5
' Generated at: 4/10/2007 10:10:04 AM

' Creating Wise_FTP_Automation Object...
Set WiseFTP = CreateObject("wise_ftp.Wise_FTP_Automation")

' Dim LoopCount as integer <--- Doesn't work??? Hummmm????
LoopCount = 1
ChDir "C:\" ' <------Doesn't work??? Hummmmm????

' Everything after this all works......

Do while LoopCount < 4

' Connecting to "DavesPlace" profile...
WiseFTP.ConnectToSiteWait "DavesPlace"
' Uploading file "/QBBR0503.TXT" ...
WiseFTP.UploadFileWait "\\wfp\DavesPlace\", "", "", "", "ftp", "C:\Temp\QBBR0503.TXT", "/QBBR0503.TXT"
' Disconnecting from site "DavesPlace" ...
WiseFTP.DisconnectFromSiteWait "\\wfp\DavesPlace\"


LoopCount = LoopCount + 1
Loop

Hello,

we forwarded your question to our responsible product manager.


Best regards,

AceBit - Support -

Hello,

The Windows Script Host engine, which is used to run the Wise-FTP scripts supports only standard VB functions, see the list at
http://msdn2.microsoft.com/en-us/library/3ca8tfek.aspx

Of course, the functionality of the scripts can be greatly extended by using ActiveX objects. For example, FileSystemObject allows performing many files and directories related operations in Run-Time.

Please refer for details to
http://msdn2.microsoft.com/en-us/library/d6dw7aeh.aspx

Best regards