vb怎样获取ftp中获取目录下所有文件名名

来源：蜘蛛抓取(WebSpider) 时间：2016-11-20 05:35 标签： shell 获取所有文件名
vb中查看ftp文件是否存在？_vb吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：104,613贴子：
vb中查看ftp文件是否存在？收藏
如题，求大侠帮帮忙？在线等！vb中查看ftp上文件是否存在？ftp上的文件名可以用通配符吗？谢谢大侠们指教啊！
通用软件不合适,定做软件太昂贵,自己用vb.net开发太难,何不试试FoxTable?
Private Declare Function PathFileExists Lib &shlwapi.dll& Alias &PathFileExistsA& (ByVal szPath As String) As LongPrivate Sub Command2_Click()Dim fso As New FileSystemObjectWith Inet1.URL = &&.UserName = Text1(1).Text.Password = Text1(2).Text.Protocol = icFTP.RemotePort = 21End With
Inet1.Execute , &get //behb/diqu/wldoc/newaws//Z_SURF_I__O_AWS_FTM-CCB.txt D:\changz/Z_SURF_I__O_AWS_FTM-CCB.txt&
right1 = Inet1.StillExecuting
Do While right1
right1 = Inet1.StillExecuting
Loopp = &//172.19.112.7/behb/diqu/wldoc/newaws//Z_SURF_I__O_AWS_FTM-CCB.txt&If PathFileExists(&&) ThenPrint &存在.&Else: Print &不存在。&End If不知道为什么本地的和共享的文件可以查到存在，而ftp就是不存在，我都下载下来啦，明明是存在啊，我的ftp哪里写的不对吗？求大侠指点
帮帮我吧，神啊！
再次求救啊！
登录百度帐号推荐应用VB网络编程
共有446位成员 　 人气指数 - 　 最新排名 -
【话题】VB用API函数进行FTP目录的遍历时，找不到下级目录的文件，什么原因？
18:07:07　来自:小公牛 浏览数：9次
之前想用inet控件实现递归遍历FTP目录，后来发现是不可能的。于是用wininet.dll的API函数来写。但新的问题又出现了。我用递归算法，结合FtpFindFirstFile、InternetFindNextFile、FtpSetCurrentDirectory这些API函数，算法思想是这样的：
第一，找当前目录的文件
第二、判断返回的文件是否为文件夹
第三、如果是文件夹，则设置当前目录为这个文件夹，进入递归；如果不是文件夹，则查找当前目录的下一个文件。
问题是，程序运行时，在根目录查找文件，当找到一个子目录时，进入这个子目录查找，就找不到这个子目录的文件了。十分郁闷，函数返回的总是句柄总是0，不知什么原因不能够执行下去。
大体的算法思想如下：
private sub List()
hFind = FtpFindFirstFile(hConnection, &*.*&, pData, 0, 0)& '？当发生递归调用时，这里的hFind 总返回0
if hFind =0 then exit sub
if pData 是文件夹
& & & & FtpSetCurrentDirectory hConnection, pData '设置工作目录为找到的文件夹
List()& '递归
lRet = InternetFindNextFile(hFind, pData)& '找下一个文件& & & &
& & & & If lRet = 0 Then
& & & & & FtpSetCurrentDirectory hConnection, X& & 'X为父目录
& & & & if pdata 是文件夹
FtpSetCurrentDirectory hConnection, pData
& & & & & List()& '递归
& & & & ……
InternetCloseHandle hFind
kaixinguo回复于30日19点32分　
虽然你已经结贴了——
不要太相信API，如果你用的这些API只维护一个内部状态，那递归过程中就有冲突了。比较好的办法是把目录下面的内容一次读出，放在一个数组里，然后关闭句柄，然后递归处理那个数组。
VB网络编程的其他话题...
热门脚本语言：

我要回帖

更多关于 shell 获取所有文件名 的文章

 

随机推荐