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