vb如何上傳文件到指定ftp？

open app.path & "\ftpcmd.ftp" for output as #1 '創建壹個ftp命令文件

print #1, "open " & "IP" '打開ftp服務器

print #1, "user " & "用戶名"

print #1, "pass " & "密碼"

print #1, "lcd " & "本地文件路徑" '指定本地文件所在目錄

print #1, "put " & "文件名"

close #1 'frp命令文件寫完了

shell "ftp -n -s:" & app.path & "\ftpcmd.ftp" '調用系統ftp，並執行上面寫的ftpcmd.ftp