SCADA DIAView VBS 实现 FTP 上传与下载 _小知识

软件：SCADA DIAview硬件：电脑剧本说话：VBScript
方式/
1搭建局域网或本机的FTP 办事器 Win10
a）进入节制面板==>程序和功能【图1】
b) 选择“启用或封闭Windows功能”==>对“Internet Information Services ” 下面临应的选项大打√==>点击“确定”安装当作功==>重启电脑，然后进行 c
。【图2】
c) 我的电脑==>右击选择“办理”【图3】
d) 网站==>右击添加“FTP站点”【图4】【图5】
e) 点击下一步，进入 FTP 绑定IP 和端标语==》点击下一步，进入“身份证和授权信息”==》点击完当作，进入 f
【图6】【图7】
f) 进行拜候 ftp 办事地址，在浏览器网址中输入ftp地点办事器的地址如：“ftp://192.168.1.65” ，进入登录界面。输入办事器的登录账号和暗码即可。【图8】【图9】

文章插图

文章插图

2建立组态DIAView工程来实现FTP的上传于下载

3【SCADA DIAView VBS 实现 FTP 上传与下载】建立窗口如下：

文章插图

4按钮“上传”==>事务“左键按下”
'FTP IP地址如：192.168.1.65 或 ftp.wwww.baidu.com
FTP_HOST=Trim(txtftpip.Text)
'FTP 登录用户名
FTP_USER=Trim(txtftpuser.Text)
'FTP 登录用户暗码
FTP_PWD=Trim(txtftppwd.Text)
'被上传的文件目次
LOCAL_FOLDER =Trim(txtlocalpath.Text)
'被上传的文件名称多个用英文逗号离隔；*好暗示全数文件
strFileName =Trim(txtlocalfile.Text)
strFTPFolder=Trim(txtftpfolder.Text)
'strNewFileName=Sys.Year&Sys.Month&Sys.Day&Sys.Hour&Sys.Minute&Sys.Second&Sys.Millisecond

'Application
Set objShell = Createobject("Shell.Application")
'FileSystemobject
Set objFs = Createobject("Scripting.FileSystemobject")

strFtpUrl = "ftp://" & FTP_USER & ":" & FTP_PWD & "@" & FTP_HOST & "/" & strFTPFolder
Set obj2=objShell.NameSpace(LOCAL_FOLDER)
Set objFolderItems = obj2.Items()

For i = 0 To objFolderItems.Count - 1
Set ofitem = objFolderItems.Item(i)
'filePath=ofitem.path
'filePathArray=Split(filePath,".",-1,1)