FindFirstFile
FindFirstFile 在远程 FTP用于在网络计算机之间传输文件的协议。 服务器上初始化和枚举当前目录中的文件和目录。
语法
FindFirstFile(STRING 文件掩码)
其中：
文件掩码是字符串。 通常这将是“*”，可枚举所有文件。
返回结果
- 布尔。 如果返回
TRUE，则表明远程 FTP 服务器上匹配了至少一个文件 - 可使用
GetFindFileName()和GetFindFileSize()方法检索第一个匹配文件的文件名和文件大小。 FindNextFile()方法用于移动到下一个匹配文件。FindFirstFile将在找不到任何匹配文件的情况下返回FALSE- 如果当前的搜索操作未使用
FindFileClose()方法关闭，则在后续对FindFirstFile()的调用中，FindFirstFile也将返回FALSE。 - 当返回
FALSE后，FTPObject.LastError将返回 WIN32 错误代码。
示例
FTP 对象中的 RenameFile 功能示例。 对 FTP 服务器根中的所有文件重命名：
函数 Main
Dim FTPobj as Object
Const DIRECTORYMASK=&H10
ip = "127.0.0.1"
port = 21
cr = Chr(13) + Chr(10)
Set FTPobj = FTP.Connect (ip,port,TRUE,"anonymous","lnss@gfi.com")
Found=FTPobj.FindFirstFile("*")
While Found
If (FTPobj.GetFindFileAttributes And DIRECTORYMASK) = DIRECTORYMASK Then
FileType="directory"
Else
FileType="file"
FileName = FTPobj.GetFindFileName
RenameFileName = "renamed_" + FTPobj.GetFindFileName
ret = FTPobj.RenameFile (FileName, RenameFileName)
End If
echo "File: " + FTPobj.GetFindFileName + " size: " + CStr(FTPobj.GetFindFileSize) + " bytes type: " + FileType & cr
Found=FTPobj.FindNextFile
Wend
End 函数