;####################################### ;# ;# Author: Rochus Frericks 2014 /9 ;# ;####################################### #include $search = FileFindFirstFile("*.*") $localpath= "\\FRERICKST410W8\d\LFB\server\" ; Check ob Suche erfolgreich If $search = -1 Then MsgBox(0, "Fehler", "Keine Dateien gefunden") Exit EndIf FileDelete("download.html") $filew = FileOpen("download.html", 1) If $filew = -1 Then MsgBox(0, "Error", "Unable to open file.") Exit EndIf FileWriteLine($filew,'' & @CRLF) FileWriteLine($filew,'' & @CRLF) FileWriteLine($filew,'' & @CRLF) FileWriteLine($filew,'' & @CRLF) FileWriteLine($filew,'Alle Dateien herunterladen' & @CRLF) FileWriteLine($filew,'' & @CRLF) FileWriteLine($filew,'' & @CRLF) FileWriteLine($filew,'

Hier können Sie alle Dateien herunterladen:

' & @CRLF) $i=0 $F=1 While 1 $file = FileFindNextFile($search) If @error Then ExitLoop If $file= "download.html" or $file="makehtml.exe" then Else $size = ByteSuffix(FileGetSize($file)) $suffix=StringRight ( $file, 3 ) $datei=StringTrimRight ( $file, 4 ) $dateipfad=StringReplace(StringReplace(@ScriptDir,$localpath,""),"\","/") & '/' & $file FileWriteLine($filew, $datei & ': Download Herunterladen [' & $suffix & '][' & $size & ']'&'
') $i=$i +1 $F=$F+1 EndIf WEnd FileWriteLine($filew,' ' & @CRLF) FileWriteLine($filew,' ' & @CRLF) FileClose($search) FileClose($filew) SplashOff() SplashTextOn("Fertig", "downloads.html wurde erfolgreich erstellt ! Es wurden " & $i & " Dateien gelistet", 420, 40, -1, -1, 4, "",10) Sleep(3000) SplashOff() ; Diese Funktion formatiert den String zur Dateigröße Func ByteSuffix($iBytes) Local $iIndex, $aArray[9] = [' bytes', ' KB', ' MB', ' GB', ' TB', ' PB', ' EB', ' ZB', ' YB'] While $iBytes > 1023 $iIndex += 1 $iBytes /= 1024 WEnd Return Round($iBytes) & $aArray[$iIndex] EndFunc ;==>ByteSuffix