GetFindFileName
GetFindFileName 在成功呼叫 FindFirstFile 或 FindNextFile 方法後擷取目前相符檔案的檔案名稱。
當呼叫 FindFileClose 時，不應使用 GetFindFileName、GetFindFileSize 和 GetFindFileAttributes，因為這會造成指令碼處理引擎失敗。
語法
GetFindFileName
結果
包含檔案名稱的字串。
範例
FTP用於在網路電腦之間傳輸檔的通訊協定。 物件中的 RenameFile 功能範例。 為 FTP 伺服器根目錄中的所有檔案重新命名：
Function Main
Dim FTPobj as Object
Const DIRECTORYMASK=&H10
ip = "127.0.0.1"
port = 21
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
Wend
End Function