[VB]调用FtpFindFirstFile()时程序久久没响应

我在一台电脑上执行一段VB代码，其中执行某一语句时，是调用WinInet.dll中的FtpFindFirstFile()函数，结果总是一调用程序就死掉了

而在别的大多数电脑上执行这段代码却顺利调用成功

*VB版本都是VB6.0

是什么原因呢？

这个函数的执行结果应该是返回一个搜索句柄吧，但是如果出错，返回一个INVALID_HANDLE_VALUE常数，一旦不再需要，就应该用“FindClose”函数关闭这个句柄。如果没关应该就会出现上面的问题吧。（不太清楚你想做什么，这人函数通常是和其它的函数一起用的，把它的返回值做为FindNextFile的参数，这样一来，就可以方便的枚举出与lpFileName参数指定的文件名相符的所有文件）不知道是不是这样的。

你也没有具体说明是什么错误，而我用同样的代码却能运行。 估计是下面三种错误之一： 1、“对象变量或 with 块变量未设置”： 这种情况一般是data1未与数据库连接或未和数据表建立关系，可以检查data1的databasename和recordsource属性是否设置正确； 2、“这种对象类型不支持该操作”： 这是因为你把data1的recordsettype属性设为“0 - table”，应该设为1或2的； 3、“错误的参数号或无效的属性赋值”： 这是因为你的text1不是控件数组，应该改为text1.text。 如果不是上述三种错误，那就把错误情况说明白。