Sysutils.FindFirst is not working?
Posted: Fri Nov 29, 2019 2:21 pm
Sorry , I reported this at WingFTP server section by mistake,reposting here.
Hello
1. What is wrong with this script?
It just shows "Start", doesn't show "Exit" and "0".
2. "rfScriptEnv, System, Classes, Sysutils " are the only units that can be used in FtpRush scripts?
FtpRush 2.2.0 / win 8.1 /x64
Thanks
//----------------
uses
rfScriptEnv, System, Classes, Sysutils ;
Var Info : TSearchRec;
Count : Longint;
Begin
ShowMessage('Start');
count := Sysutils.FindFirst('*.*',faAnyFile and faDirectory ,Info);
ShowMessage('Exit');
ShowMessage(IntToStr(count));
End
Hello
1. What is wrong with this script?
It just shows "Start", doesn't show "Exit" and "0".
2. "rfScriptEnv, System, Classes, Sysutils " are the only units that can be used in FtpRush scripts?
FtpRush 2.2.0 / win 8.1 /x64
Thanks
//----------------
uses
rfScriptEnv, System, Classes, Sysutils ;
Var Info : TSearchRec;
Count : Longint;
Begin
ShowMessage('Start');
count := Sysutils.FindFirst('*.*',faAnyFile and faDirectory ,Info);
ShowMessage('Exit');
ShowMessage(IntToStr(count));
End