回复 2楼 lianyicq
Dim str1 As String
str1 = Adodc2.Recordset.Fields("id_图片") & "." & Adodc2.Recordset.Fields("图片格式")
Call 自动检查文件夹
Inet1.URL = "ftp://192.168.0.109:99/"
Inet1.Protocol = icFTP
Inet1.UserName = "admin"
Inet1.Password = "wuyachao99"
'Inet1.Execute "", "get
/图片/订单原始文件/" & str1 & "
c:\临时文件夹\" & str1 & ""
Inet1.Execute , "get " & Chr(34) & "/图片/订单原始文件/" & str1 & Chr(34) & "
" & Chr(34) & "c:\临时文件夹\" & str1 & Chr(34)
Label3.Caption = "正在下载原始文件,请稍候……"
Frame5.Visible = True
line1:
Do While Inet1.StillExecuting
DoEvents: DoEvents: DoEvents: DoEvents
GoTo line1
Loop
Frame5.Visible = False
Inet1.Execute , "QUIT"
str1 = "c:\临时文件夹\" & str1
ShellExecute Me.hwnd, "open", str1, str1, vbNull, 3