FindFirstFile
FindFirstFile 在遠端 FTP用於在網路電腦之間傳輸檔的通訊協定。 伺服器上初始化和列舉目前的目錄中的檔案和目錄。
語法
FindFirstFile(STRING 檔案遮罩)
其中：
檔案遮罩是字串。 通常這將是「*」，可列舉所有檔案。
結果
- 布林。 如果傳回
TRUE，則表示遠端 FTP 伺服器上符合至少一個檔案 - 可使用
GetFindFileName()和GetFindFileSize()方法擷取第一個相符檔案的檔案名稱和檔案大小。 FindNextFile()方法用於移至下一個相符檔案。FindFirstFile將在找不到任何相符檔案的情況下傳回FALSE- 如果目前的搜尋操作未使用
FindFileClose()方法關閉，則在後續對FindFirstFile()的呼叫中，FindFirstFile也將傳回FALSE。 - 當傳回
FALSE後，FTPObject.LastError將傳回 WIN32 錯誤代碼。
範例
FTP 物件中的 RenameFile 功能範例。 為 FTP 伺服器根目錄中的所有檔案重新命名：
Function 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
回應 "檔案： " + FTPobj.GetFindFileName + " 大小： " + CStr(FTPobj.GetFindFileSize) + " 位元組類型： " + FileType & cr
Found=FTPobj.FindNextFile
Wend
End Function