GetFindFileName
GetFindFileName ruft nach einem erfolgreichen Aufruf der Methode FindFirstFile oder FindNextFile den Dateinamen der gegenwärtig ausgewählten Datei ab.
Wenn FindFileClose aufgerufen wird, dürfen GetFindFileName, GetFindFileSize und GetFindFileAttributes nicht verwendet werden, da das Scripting-Modul andernfalls abstürzen würde.
Syntax
GetFindFileName
Rückgabewert
Eine Zeichenfolge, die den Dateinamen enthält.
Beispiel
Beispiel für die RenameFile-Funktion in Verbindung mit dem FTPEin Protokoll, das zur Übertragung von Dateien zwischen Netzwerkcomputern verwendet wird.-Objekt. In diesem Beispiel werden alle Dateien umbenannt, die sich im Wurzelverzeichnis des FTP-Servers befinden:
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="Verzeichnis"
Else
FileType="Datei"
FileName = FTPobj.GetFindFileName
RenameFileName = "umbenannt_" + FTPobj.GetFindFileName
ret = FTPobj.RenameFile (FileName, RenameFileName)
End If
Wend
End Function