FindFirstFile
FindFirstFile はリモート FTPネットワーク コンピューター間でファイルを転送するために使用するプロトコル。 サーバーの現在のディレクトリで、ファイルとディレクトリの列挙を開始します。
構文
FindFirstFile(STRING filemask)
内容:
Filemaskは文字列です。 通常、これはすべてのファイルを列挙するときには “*” になります。
戻り値
- ブール値。
TRUEが返されると、リモート FTP サーバー上の少なくとも 1 つのファイルが一致したことになります - 最初の一致するファイルのファイル名とファイル サイズは、
GetFindFileName()メソッドとGetFindFileSize()メソッドを使って取得できます。 FindNextFile()メソッドは次の一致ファイルに移動するために使用されますFindFirstFileは一致するファイルが見つからない場合はFALSEを戻しますFindFirstFileは、また、現在の検索操作がFindFileClose()メソッドで閉じられていない場合、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
echo "File: " + FTPobj.GetFindFileName + " size: " + CStr(FTPobj.GetFindFileSize) + " bytes type: " + FileType & cr
Found=FTPobj.FindNextFile
Wend
End Function