用Javascript來產生ftp腳本的小範例_javascript技巧

程式也很簡單，就是遍歷一下本機目錄，然後產生一堆ftp指令。

複製程式碼 程式碼如下:

function matchDemo（strFolderName> {

var s;

var re = /200d{5}/ig;

s = strFolderName.match（re）；

return（s）；

}

function init（）

{

strScript ="open 192.168.1.32 n";

strScript ="user sybase 111111 n";

strScript ="binn";

strScript ="promptn";

strScript ="cd /hisdata/olddata n";

dicWhiteList = new ActiveXObject（"Scripting.Dictionary"）；

dicWhiteList.add （"20051205_pihou", ""）；

dicWhiteList.add （"20051206_pihou", ""）；

dicWhiteList.add （"20060701_pihou", ""）；

}

function EnumSubFolder（oSubFolder）

{

var eFolders=new Enumerator（oSubFolder.SubFolders）；

var s="";

if（eFolders.atEnd（））

{

return s;

}

else

{

for （； !eFolders.atEnd（）； eFolders.moveNext（））

{

s ="lcd "";

s =eFolders.item（）；

s =""n";

s ="mput *.*n";

}

return s;

}

}

function checkList（strToBeChecked）

{

return !dicWhiteList.Exists（strToBeChecked）；

}

var strScript,dicWhitList;

var sFolderPath="e:\";

var oFs=new ActiveXObject（"Scripting.FileSystemObject"）；

init（）；

if （oFs.FolderExists（sFolderPath））

{

//WScript.Echo（"valid folder"）；

var oFolders=oFs.GetFolder（sFolderPath）；

var eFolders=new Enumerator（oFolders.SubFolders）；

if（eFolders.atEnd（））

{

strScript = "mkdir "";

strScript = oFs.GetBaseName（sFolderPath）；

strScript = ""n";

}

else

{

for （； !eFolders.atEnd（）； eFolders.moveNext（））

{

strTargetFolderName=matchDemo（eFolders.item（） ""）；

if（strTargetFolderName==null || checkList（oFs.GetBaseName（eFolders.item（）））

continue;

strTmpFolderName=""" oFs.GetBaseName（eFolders.item（）） """;

strScript = "mkdir "

strScript = strTargetFolderName;

strScript = "n";

strScript = "cd ";

strScript = strTargetFolderName;

strScript = "n";

strScript = EnumSubFolder（eFolders.item（））；

strScript = "lcd "

strScript = eFolders.item（）；

strScript = "n";

strScript = "mput *.*n";

strScript = "cd  nlcd n";

}

}

strScript ="byen";

WScript.Echo（strScript）；

}

else

{

WScript.Echo（"Bad Folder Name"）；

}