专家坐堂-关于ApplicationPathFoxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于ApplicationPath  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=186040)

--  作者：ygg8310
--  发布时间：2023/4/3 10:39:00
--  关于ApplicationPath
把某个.dll文件通过ftp下载到ApplicationPath目录时一直提示下载失败且卡住了循环

--  作者：有点蓝
--  发布时间：2023/4/3 10:45:00
--
代码？http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=150626

--  作者：ygg8310
--  发布时间：2023/4/3 10:57:00
--

For Each file As String In filesys.GetFiles(ApplicationPath)
If file.Contains("sdtapi.dll") = True Then
MessageBox.Show("you")
Else
MessageBox.Show("no")
End If
Next

--  作者：有点蓝
--  发布时间：2023/4/3 11:14:00
--
没看到到下载的代码？代码放在什么事件的？能不能一次性把问题描述清楚

--  作者：ygg8310
--  发布时间：2023/4/3 11:20:00
--

For Each file As String In filesys.GetFiles(ApplicationPath)
If file.Contains("sdtapi.dll") = True Then
MessageBox.Show("you")
Else
Dim ftp1 As New ftpclient
ftp1.host = "196.128.143.28"
ftp1.Account = "foxuser"
ftp1.password = "138238110"
If ftp1.Download("sdtapi.dll", ApplicationPath & "sdtapi.dll") = True Then
Messagebox.show("下载完成!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
Messagebox.show("下载失败!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End If
Next

--  作者：ygg8310
--  发布时间：2023/4/3 11:22:00
--
无线的下载失败

--  作者：有点蓝
--  发布时间：2023/4/3 11:35:00
--

For Each file As String In filesys.GetFiles(ApplicationPath)
If file.Contains("sdtapi.dll") = True Then
return
End If
Next
Dim ftp1 As New ftpclient
ftp1.host = "196.128.143.28"
ftp1.Account = "foxuser"
ftp1.password = "138238110"
If ftp1.Download("sdtapi.dll", ApplicationPath & "sdtapi.dll") = True Then
Messagebox.show("下载完成!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
Messagebox.show("下载失败!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If

--  作者：ygg8310
--  发布时间：2023/4/3 11:58:00
--

For Each file As String In filesys.GetFiles(ApplicationPath)
If file.Contains("sdtapi.dll") = True Then
Return
End If
Next
Dim ftp1 As New ftpclient
ftp1.host = "196.128.143.28"
ftp1.Port = "35"
ftp1.Account =  "foxuser"
ftp1.password = "138238110"
If ftp1.Download("sdtapi.dll", ApplicationPath & "sdtapi.dll") = True Then
Messagebox.show("下载完成!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
Messagebox.show("下载失败!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
未知编译错误

--  作者：有点蓝
--  发布时间：2023/4/3 12:01:00
--
我测试没有问题。

调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm，看哪一句代码出错