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

'fileExt=filePathArray(UBound(filePathArray))
'strFtpUrl=strFtpUrl&"/"&strNewFileName&"."&fileExt
'暗示上传全数
If strFileName="*" then
Set FD = objShell.NameSpace(strFtpUrl)
FD.CopyHere ofitem,4096 '若是存在并笼盖
If
If strFileName<>"*" And strFileName = ofitem.Name Then
'strFtpUrl=strFtpUrl&strNewFileName&
Set FD = objShell.NameSpace(strFtpUrl)
FD.CopyHere ofitem,4096 '若是存在并笼盖
If

Next

MsgBox "上传当作功！"

5按钮“下载”==>事务“左键按下”
'FTP IP地址如：192.168.1.65 或 ftp.wwww.baidu.com
str_server=Trim(txtftpip.Text)
'FTP 登录用户名
str_user=Trim(txtftpuser.Text)
'FTP 登录用户暗码
str_password=Trim(txtftppwd.Text)
'被上传的文件目次
str_localDir =Trim(txtlocalpath0.Text)
'被上传的文件名称多个用英文逗号离隔；*好暗示全数文件
str_remoteFiles =Trim(txtlocalfile0.Text)
'FTP下载目次
str_remoteDir="\"&Trim(txtftpfolder0.Text)

ftp_configFile = "listfiles.ini"
Set ws = CreateObject("WScript.Shell")
Set fs = CreateObject("Scripting.FileSystemObject")

'处置路径中的空格
str_remoteDir = Trim(str_remoteDir)
If InStr(str_remoteDir," ")>0 Then
If Left(str_remoteDir,1)<> """" And Right(str_remoteDir,1) <> """" Then
str_remoteDir = """" &str_remoteDir& """"
If
If

'设置工作路径
originalWorkingDirectory = ws.CurrentDirectory
ws.CurrentDirectory = str_localDir

'生当作ftp号令
ftpScript_str = ""
ftpScript_str = ftpScript_str & "USER " & str_user & vbCrLf
ftpScript_str = ftpScript_str & str_password & vbCrLf
ftpScript_str = ftpScript_str & "cd " & str_remoteDir & vbCrLf
ftpScript_str = ftpScript_str & "binary" & vbCrLf
ftpScript_str = ftpScript_str & "prompt off" & vbCrLf

remoteFiles_obj = Split(str_remoteFiles,",")
For Each remoteFile_str In remoteFiles_obj
'remoteFile_str = Left(remoteFile_str,Len(remoteFile_str)-1) '去除回车符（为什么会有换行符？）
If InStr(remoteFile_str, " ")>0 Then
remoteFile_str = """" & remoteFile_str & """"
If
ftpScript_str = ftpScript_str & "get " & remoteFile_str & vbCrLf
Next

ftpScript_str = ftpScript_str & "bye" & vbCrLf & "quit" & vbCrLf & "quit" & vbCrLf

'建立姑且文件
tempDir_str = ws.ExpandEnvironmentStrings("%TEMP%")
scriptFilePath_str = tempDir_str& "\" &fs.GetTempName
ftpResultPath_str = tempDir_str& "\" &fs.GetTempName

'姑且ftp剧本文件
Set scriptFile_obj = fs.OpenTextFile(scriptFilePath_str,2,True)
scriptFile_obj.Write(ftpScript_str)
scriptFile_obj.Close

'执行ftp剧本
'logFileObject.WriteLine Time & " Downloading files from ftp..."
ws.Run "%comspec% /c FTP -n -s:" &""""&scriptFilePath_str&""""& " " &str_server& " > " &ftpResultPath_str,0,True
'WScript.Sleep 1000

'姑且ftp成果文件
Set resultFile_obj = fs.OpenTextFile(ftpResultPath_str,1)
successDownloadCount_int = 0
failToDownloadCount_int = 0
'WScript.Echo scriptFilePath_str & " " &ftpResultPath_str
'WScript.Echo ftpScript_str

Do Until resultFile_obj.AtOfStream
currLine_str = resultFile_obj.ReadLine
'WScript.Echo currLine_str

' If InStr(currLine_str,"get ")>0 And InStr(currLine_str,"forme")>0 Then
If InStr(currLine_str,"get ")>0 Then
currLine_str = Right(currLine_str,Len(currLine_str)-(InStr(currLine_str,"get ")+3))
nextLine_str = resultFile_obj.ReadLine
nextLine_str = resultFile_obj.ReadLine
nextLine_str = resultFile_obj.ReadLine

If InStr(nextLine_str,"226 Transfer complete")>0 Then
successDownloadCount_int = successDownloadCount_int + 1
'logFileObject.WriteLine Time & " Finish downloading file(" &currLine_str& ")"

SCADA DIAView VBS 实现 FTP 上传与下载( 二 )

推荐阅读

吃松茸的禁忌吃松茸的注意事项

闲鱼和淘宝的关系

胃病形成的原因

大理石西柚卷怎么做（大理石西柚卷的做法介绍）

自制油炸薯条的做法油炸薯条怎么做

九夫如狐很腹黑八零下载腹黑王的笨笨狐

湖南幼儿师范高等专科学校怎么样

哈尔滨在哪里

鄙人什么意思

红木都包括哪些

婚礼请柬可以寄给朋友吗

精选28句关于记忆的说说心情

袁天罡称骨算法指什么什么是袁天罡称骨算法

微信晚安问候语句子微信朋友圈睡前晚安语

快走是有氧运动还是无氧运动

浙江湖州市区有哪些好玩的景点

汉服是什么样子的

炸裂星云效果怎么做怎么用PS制作炸裂星云效果

适合清晨发的短句（可以清晨发的短句）

油桃几月份成熟北方油桃什么季节成熟