XYplorer Beta Club

Code: Select all

//FtpScript
//A simple ftp script to upload selected file to server (Uses Windows' native ftp command)

//Your ftp server address
   $ftpaddress = "YourDomain.com";

//Directory to upload files to
   $dir= input ("Directory to upload to", "Enter directory name <crlf>Leave empty to upload files to root ($ftpaddress/)", "");
   $dir= "/$dir";

//Your Server login or Username
   $username = "username"; 
//Enter password
   $pass= input ("Enter password", "Address = $ftpaddress$dir <crlf>Username = $username", "password", s);

//Focus list
 focus;

//Get selected file info
   $files= getinfo ("SelectedItemsPathNames", """ """);

//remove extra "
   substr $files, $files, 0,-1;

//Add trailing "
   $files="""$files";

//Command for batch file to be run in cmd
 $ftpinfo= <<<FOO
@echo off
echo open $ftpaddress>> "<xypath>\Scripts\ftpcmd.dat"
echo $username>> "<xypath>\Scripts\ftpcmd.dat"
echo $pass>> "<xypath>\Scripts\ftpcmd.dat"
echo cd $dir>> "<xypath>\Scripts\ftpcmd.dat"
echo mput $files>> "<xypath>\Scripts\ftpcmd.dat"
echo bye>> "<xypath>\Scripts\ftpcmd.dat"
ftp -i -s:"<xypath>\Scripts\ftpcmd.dat" >>"<xypath>\Scripts\FtpScript.log"
del "<xypath>\Scripts\ftpcmd.dat"
FOO;

//Write above commands to batch file
   writefile ("<xypath>\Scripts\FtpScript_upload.bat", $ftpinfo);

//Run batch file
   run """<xypath>\Scripts\FtpScript_upload.bat""",, 1;

//Delete batch file (it has your password)
   delete 0, 0, "<xypath>\Scripts\FtpScript_upload.bat";

//Go to log file (has details about your recent upload)
   goto (confirm ("Upload log at <xypath>\Scripts\FtpScript.log<br><br>OK=Goto log <br>Cancel=stay here") == 1 ? "<xypath>\Scripts\FtpScript.log": "<curpath>");

Code: Select all

...
//Script path   
   $path = "<xydata>\Scripts";

//Command for batch file to be run in cmd
 $ftpinfo= <<<FOO
@echo off
echo open $ftpaddress>> "$path\ftpcmd.dat"
echo $username>> "$path\ftpcmd.dat"
etc.
...

Code: Select all

//FtpScript
//A simple ftp script to upload selected file to server (Uses Windows' native ftp command)

//Your ftp server address
   $ftpaddress = "YourDomain.com";

//Directory to upload files to
   $dir= input ("Directory to upload to", "Enter directory name <crlf>Leave empty to upload files to root ($ftpaddress/)", "");
   $dir= "/$dir";

//Your Server login or Username
   $username = "username"; 
//Enter password
   $pass= input ("Enter password", "Address = $ftpaddress$dir <crlf>Username = $username", "password", s);

//Focus list
 focus;

//Get selected file info
   $files= getinfo ("SelectedItemsPathNames", """ """);

//remove extra "
   substr $files, $files, 0,-1;

//Add trailing "
   $files="""$files";

//Path to scripts folder
  $path="<xydata>\Scripts";

//Command for batch file to be run in cmd
 $ftpinfo= <<<FOO
@echo off
echo open $ftpaddress>> "$path\ftpcmd.dat"
echo $username>> "$path\ftpcmd.dat"
echo $pass>> "$path\ftpcmd.dat"
echo cd $dir>> "$path\ftpcmd.dat"
echo mput $files>> "$path\ftpcmd.dat"
echo bye>> "$path\ftpcmd.dat"
ftp -i -s:"$path\ftpcmd.dat" >>"$path\FtpScript.log"
del "$path\ftpcmd.dat"
FOO;

//Write above commands to batch file
   writefile ("$path\FtpScript_upload.bat", $ftpinfo);

//Run batch file
   run """$path\FtpScript_upload.bat""",, 1;

//Delete batch file (it has your password)
   delete 0, 0, "$path\FtpScript_upload.bat";

//Go to log file (has details about your recent upload)
   goto (confirm ("Upload log at $path\FtpScript.log<br><br>OK=Goto log <br>Cancel=stay here") == 1 ? "$path\FtpScript.log": "<curpath>");