wesley7790的部落格

Private Sub btnDownloadHost_Click()
Dim ScName As String

ScName = Trim([Forms]![主表單]![服務所代碼])

If ScName = "" Then

MsgBox "未輸入服務所代碼"
Else

Open "C:\ETBAS\host.bat" For Output As #1

Print #1, "ECHO OFF"
Print #1, "cd /d %~dp0"
Print #1, "if exist %~dp0ftp.ftp del /q %~dp0ftp.ftp"
Print #1, "if exist %~dp0ftp_list_down_proc.vbs del /q %~dp0ftp_list_down_proc.vbs"
Print #1, "echo Dim fso, f1 >> %~dp0ftp_list_down_proc.vbs"
Print #1, "echo Set fso = CreateObject(""" & "Scripting.FileSystemObject""" & ") >> %~dp0ftp_list_down_proc.vbs"
Print #1, "echo Set f1 = fso.CreateTextFile(""" & "ftp.ftp""" & ", ForWriting) >> %~dp0ftp_list_down_proc.vbs"
Print #1, "echo f1.write """ & "CD UPLOAD""" & " >> %~dp0ftp_list_down_proc.vbs"
Print #1, "echo f1.write vbCrLf >> %~dp0ftp_list_down_proc.vbs"
Print #1, "echo f1.write """ & "CD ETBAS""" & " >> %~dp0ftp_list_down_proc.vbs"
Print #1, "echo f1.write vbCrLf >> %~dp0ftp_list_down_proc.vbs"
Print #1, "echo f1.write """ & "CD " & ScName & """ >> %~dp0ftp_list_down_proc.vbs"

'Print #1, "echo f1.write """ & "CD 08D""" & " >> %~dp0ftp_list_down_proc.vbs"
Print #1, "echo f1.write vbCrLf >> %~dp0ftp_list_down_proc.vbs"
Print #1, "echo f1.write """ & "GET """ & " >> %~dp0ftp_list_down_proc.vbs"
Print #1, "echo f1.write """ & "HOST1.TXT""" & " >> %~dp0ftp_list_down_proc.vbs"
Print #1, "echo f1.write vbCrLf >> %~dp0ftp_list_down_proc.vbs"
Print #1, "echo f1.write """ & "QUIT""" & " >> %~dp0ftp_list_down_proc.vbs"
Print #1, "echo f1.write vbCrLf >> %~dp0ftp_list_down_proc.vbs"
Print #1, "REM 產生FPT指令帶入檔案名稱至ftp2.txt"
Print #1, "cscript %~dp0ftp_list_down_proc.vbs"
Print #1, "REM 執行ftp2下載檔案"
Print #1, "ftp -i -A -s:%~dp0ftp.ftp 10.210.35.206"
Print #1, "if exist %~dp0ftp.ftp del /q %~dp0ftp.ftp"
Print #1, "if exist %~dp0ftp_list_down_proc.vbs del /q %~dp0ftp_list_down_proc.vbs"
Print #1, "exit"

Close #1

End If

Shell ("C:\etbas\host.bat")
' MsgBox "HOST1 下載完畢！"

End Sub