javasftp复制文件_SFTP传输文件并将文件移动到文件夹

这是我的第一篇文章&＃xff0c;请原谅我的无知 . 我使用Vbscript压缩特定文件夹中的所有.csv类型文件 . 在一些谷歌搜索之后&＃xff0c;我发现了一个可行的Vbscript来执行此操作并启用了计划任务来自动执行此操作 .

我接下来需要做的是通过sftp传输zip文件&＃xff0c;然后将该zip文件“移动”到另一个文件夹中 . 我相信前者可以通过命令行使用pscp.exe实现&＃xff0c;但有人可以告诉我如何做后者吗&＃xff1f;

基本上&＃xff0c;压缩将每天进行两次&＃xff0c;因此它将具有类似于yyyymmdd0900.zip(对于上午9点的时间表)和yyyymmdd1800.zip(对于下午6点的时间表)的时间戳 . 转移后&＃xff0c;我想将生成的zip文件移动(不复制)到另一个文件夹中 .

任何指针都将非常感激 . 谢谢大家 .

编辑&＃xff1a;这是我根据一些谷歌搜索打了一些代码 . 它做我想做的事 . 请原谅“粘贴”&＃xff0c;因为我无法弄清楚如何正确格式化 . 目前&＃xff0c;它在复制后运行bat文件但我只是注意到我需要发送(使用PuTTY Secure Copy)“最新”zip文件&＃xff0c;然后将其移动到“completed”文件夹 . 有人可以告诉我该怎么做吗&＃xff1f;

压缩文件并重命名zip文件

On Error Resume Next

strFilepath &＃61;“c&＃xff1a;\ files”

strDestination &＃61;“c&＃xff1a;\ files \ completed \”

strExtension &＃61;“csv”

strYear &＃61;年(现在)

strMonth &＃61;右(“0”和月(现在)&＃xff0c;2)

strDay &＃61;右(“0”和日(现在)&＃xff0c;2)

strHour &＃61;右(“0”和小时(现在)&＃xff0c;2)

strMinute &＃61;右(“0”和分钟(现在)&＃xff0c;2)

strZip &＃61; strFilepath&＃xff06;“\”&＃xff06;strYear&＃xff06;strMonth&＃xff06;strDay&＃xff06;strHour&＃xff06;strMinute&＃xff06;“.zip”

设置objFSO &＃61; CreateObject(“Scripting.FileSystemObject”)

设置objFolder &＃61; objFSO.GetFolder(strFilepath)

对于objFolder.Files中的每个objFile

strFileExt &＃61; objFSO.GetExtensionName(objFile.Path)

If LCase(strFileExt) &＃61; LCase(strExtension) Then

ZipFile objFile.Path, strZip

End If

下一个

Sub ZipFile(strFileToZip&＃xff0c;strArchive)

设置objFSO &＃61; CreateObject(“Scripting.FileSystemObject”)

If Not objFSO.FileExists(strArchive) Then

Set objTxt &＃61; objFSO.CreateTextFile(strArchive)

objTxt.Write "PK" & Chr(5) & Chr(6) & String(18, Chr(0))

objTxt.Close

End If

Set objApp &＃61; CreateObject( "Shell.Application" )

intCount &＃61; objApp.NameSpace(strArchive).Items.Count &＃43; 1

objApp.NameSpace(strArchive).CopyHere strFileToZip

Do

WScript.Sleep 200

set objNameSpace &＃61; objApp.NameSpace(strArchive)

If Not objNameSpace is nothing Then

If objNameSpace.Items.Count &＃61; intCount Then

Exit Do

End If

End If

Loop

结束子

将文件移动到其他文件夹&＃xff0c;然后将bat文件运行到secury复制文件到FTP位置

“瓦尔

Dim objFSO&＃xff0c;objFileCopy&＃xff0c;objFileDelete&＃xff0c;dot&＃xff0c;files&＃xff0c;file

Dim strDestination&＃xff0c;文件夹&＃xff0c;子文件夹&＃xff0c;fileCount&＃xff0c;strFilePath

“字符串

strDestination &＃61;“C&＃xff1a;\ Files \ Completed”

strFilePath &＃61;“C&＃xff1a;\ Files”

set objFSO &＃61; CreateObject("Scripting.fileSystemObject")

set folder &＃61; objFSO.getFolder(strFilePath)

对于每个文件在folder.files中

设置objFileCopy &＃61; objFSO.GetFile(文件)

If objFSO.GetExtensionName(file) &＃61; "zip" Then

objFSO.MoveFile objFileCopy.Path, strDestination

End If

下一个

昏暗的外壳

设置shell &＃61; createobject(“wscript.shell”)

Shell.run“C&＃xff1a;\ testsend.bat”

设置shell &＃61;什么都没有