该程序也很简单，它遍历本地目录并生成一堆FTP命令。
复制代码代码如下所示：
功能matchdemo（strfoldername）

{

VaR的；

var = 200 { 5 } / IG；

S = strfoldername.match（RE）；

返回（s）；

}

函数init（）

{

strｓｃｒｉｐｔ =开放192.168.1.32 ；

strｓｃｒｉｐｔ + =用户Sybase 111111；

strｓｃｒｉｐｔ + =斌；

strｓｃｒｉｐｔ + =提示；

strｓｃｒｉｐｔ + =光盘 / / hisdata olddata；

dicwhitelist =新的ActiveX对象（脚本。词典）；

DicWhiteList.add（20051205_pihou

DicWhiteList.add（20051206_pihou

DicWhiteList.add（20060701_pihou

}

功能enumsubfolder（osubfolder）

{

无功efolders =新的枚举器（osubfolder。子文件夹）；

var；

如果（efolders.atend（））

{

返回的；

}

其他的

{

为了（；！！efolders.atend（）；efolders.movenext（））

{

LCD。

+ = efolders.item（）；

；

+ =mput *。* ；

}

返回的；

}

}

功能表（strtobechecked）

{

返回！DicWhiteList.Exists (strToBeChecked);

}

无功strｓｃｒｉｐｔ，dicwhitlist；

无功sfolderpath =E：；

VaR OFS =新的ActiveX对象（脚本。FileSystemObject ）；

init（）；

如果（ofs.folderexists（sfolderpath））

{

/ / wｓｃｒｉｐｔ.echo（有效文件夹）；

无功ofolders = ofs.getfolder（sfolderpath）；

无功efolders =新的枚举器（ofolders。子文件夹）；

如果（efolders.atend（））

{

strｓｃｒｉｐｔ =mkdir；

strｓｃｒｉｐｔ = ofs.getbasename（sfolderpath）；

strｓｃｒｉｐｔ = ；

}

其他的

{

为了（；！！efolders.atend（）；efolders.movenext（））

{

strtargetfoldername = matchdemo（efolders.item（）+）；

如果（strtargetfoldername = = null | |清单（ofs.getbasename（（efolders。项））））

继续；

strtmpfoldername = + ofs.getbasename（efolders.item（））+ ；

strｓｃｒｉｐｔ =mkdir

strｓｃｒｉｐｔ = strtargetfoldername；

strｓｃｒｉｐｔ = ；

strｓｃｒｉｐｔ =CD；

strｓｃｒｉｐｔ = strtargetfoldername；

strｓｃｒｉｐｔ = ；

strｓｃｒｉｐｔ = enumsubfolder（efolders.item（））；

strｓｃｒｉｐｔ = 液晶

（strｓｃｒｉｐｔ = efolders项目。）；

strｓｃｒｉｐｔ = ；

strｓｃｒｉｐｔ =mput *。* ；

strｓｃｒｉｐｔ =光盘液晶；

}

}

strｓｃｒｉｐｔ + = 再见；

回声（strｓｃｒｉｐｔ）名；

}

其他的

{

名。回波（文件夹名称错误）；

}