GetFindFileName
GetFindFileName 在成功调用 FindFirstFile 或 FindNextFile 方法后检索当前匹配文件的文件名。
当调用 FindFileClose 时，应不使用 GetFindFileName、GetFindFileSize 和 GetFindFileAttributes，由于会使脚本处理引擎出现故障。
语法
GetFindFileName
返回结果
包含文件名的字符串。
示例
FTP用于在网络计算机之间传输文件的协议。 对象中的 RenameFile 功能示例。 对 FTP 服务器根中的所有文件重命名：
函数 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 函数