#cs
$Suche = FileFindFirstFile("C:\Dokumente und Einstellungen\Kurt\Lokale Einstellungen\Temporary Internet Files\*.*") 

If $suche = -1 Then
    MsgBox(0, "Error", "No files/directories matched the suche pattern")
    Exit
EndIf

While 1
    $file = FileFindNextFile($suche) 
    If @error Then ExitLoop
    
    MsgBox(4096, "File:", $file)
WEnd

FileClose($suche)
#ce

; Flashfilme http://www.ced24.com/video/blitz.html 2:36 legt .flv Datei in 

$quelle=FileGetShortName("C:\Dokumente und Einstellungen\" & @UserName & "\Lokale Einstellungen\Temporary Internet Files\")
$ziel=FileGetShortName ("D:\Ordner Gottes\Filme\")
$a=FileCopy( $quelle & "*.*", $ziel, 8)
If $a= 0 then $a = "0 >>> Fehler"
MsgBox(4096,"", "Rückgabewert: " & $a &    @CRLF  &  $quelle   & "*.*" &    @CRLF  &  $ziel  ,10)