InetGet und Platzhalter

;===============================================================================


;
; Function Name:    _FTPFileFindFirst()
; Description:      Find First File on an FTP server.
; Parameter(s):     $l_FTPSession - The Long from _FTPConnect()
;                   $s_RemoteFile   - The remote Location for the file.
;                   $l_Flags  - use the dwFlags parameter to specify 1 for transferring the file in ASCII (Type A transfer method) or 2 for transferring the file in Binary (Type I transfer method).
;                   $l_Context   - lContext is used to identify the application context when using callbacks. Since we’re not using callbacks we’ll pass 0.
; Requirement(s):   DllCall, wininet.dll
; Return Value(s):  On Success - 1
;                   On Failure - 0
; Author(s):        Dick Bronsdijk
;
;===============================================================================




#cs 
   typedef struct _WIN32_FIND_DATA {
       DWORD dwFileAttributes;
       FILETIME ftCreationTime;
       FILETIME ftLastAccessTime;
       FILETIME ftLastWriteTime;
       DWORD nFileSizeHigh;
       DWORD nFileSizeLow;
       DWORD dwReserved0;
       DWORD dwReserved1;
       TCHAR cFileName[MAX_PATH];
       TCHAR cAlternateFileName[14];
   } WIN32_FIND_DATA;
   typedef struct _FILETIME {
       DWORD dwLowDateTime;
       DWORD dwHighDateTime;
   } FILETIME;

#include <ftp.au3>


$search = InputBox("FTP Suche","Suchbegriff ?") 
$search = "*_*" & $search & "*_*"	
$server = '10.xx.xx.xx'
$username = 'test'
$pass = 'test'




$Open = _FTPOpen('MyFTP Control')
If @error Then Failed("Open")
$Conn = _FTPConnect($Open, $server, $username, $pass)
If @error Then Failed("Connect")


Dim $Handle
Dim $DllRect


;$search ist der Suchbegriff
$FileInfo = _FtpFileFindFirst($Conn, $search , $Handle, $DllRect)
If $FileInfo[0] Then
   Do
       ToolTip($FileInfo[1] & @CR & $FileInfo[2] & @CR & $FileInfo[3] & @CR & $FileInfo[4] & @CR & $FileInfo[5] & @CR & $FileInfo[6] & @CR & $FileInfo[7] & @CR & $FileInfo[8] & @CR & $FileInfo[9] & @CR & $FileInfo[10])
	   ;$FileInfo[1]=128 bedeutet es ist eine Datei
	   ;$FileInfo[6]= "Wert"  bedeutet
	   ;$FileInfo[7]= "Wert"  bedeutet
	   ;$FileInfo[9]= "Wert"  bedeutetGröße in Byte
	   ;$FileInfo[10]= "Wert"  bedeutet Dateiname 

       $FileInfo = _FtpFileFindNext($Handle, $DllRect)
   Until Not $FileInfo[0]
EndIf
_FtpFileFindClose($Handle, $DllRect)




$Ftpc = _FTPClose($Open)
If @error Then Failed("Close")


Exit


Func Failed($F)
   MsgBox(0, "FTP", "Failed on: " & $F)
   Exit 1
EndFunc