1个回答
展开全部
晕,不是一般的晕。
不是写明白给你了嘛
p_pathDir 为当前软件运行目录,后面一个字符自带 \,如e:\1111\
tepFile 临时文件
你直接复制那个代码进去肯定出错的。
我改个可以直接放的给你
dim tepFile$,ri as boolean
tepFile = "c:\1.txt_"
If Dir(tepFile) <> "" Then kill tepFile
Inet1.Execute "", "GET 1.txt " & tepFile '下载要检测的文件,我这里假设是1.txt
ri = Inet1.StillExecuting
Do While ri
ri = Inet1.StillExecuting
DoEvents
Loop
If Dir(tepFile) = "" Then
Inet1.Cancel
MsgBox "文件不存在", vbOKOnly + vbExclamation, "系统提示"
Else
Inet1.Cancel
'这里已经存在,与本地操作文件一样,请打开获取内容,不再详细写出
'
End If
不是写明白给你了嘛
p_pathDir 为当前软件运行目录,后面一个字符自带 \,如e:\1111\
tepFile 临时文件
你直接复制那个代码进去肯定出错的。
我改个可以直接放的给你
dim tepFile$,ri as boolean
tepFile = "c:\1.txt_"
If Dir(tepFile) <> "" Then kill tepFile
Inet1.Execute "", "GET 1.txt " & tepFile '下载要检测的文件,我这里假设是1.txt
ri = Inet1.StillExecuting
Do While ri
ri = Inet1.StillExecuting
DoEvents
Loop
If Dir(tepFile) = "" Then
Inet1.Cancel
MsgBox "文件不存在", vbOKOnly + vbExclamation, "系统提示"
Else
Inet1.Cancel
'这里已经存在,与本地操作文件一样,请打开获取内容,不再详细写出
'
End If
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询