Kannst du dir den Inhalt des Verzeichnisses im Browser anzeigen lassen? so wie hier:
http://isaw.is.funpic.de
Wenn ja, probier mal diesen hier:
Spoiler anzeigen
#include <String.au3>
#include <Array.au3>
If _RemoteDirGet("http://isaw.is.funpic.de/", "C:\TestDownload\") = 0 Then
MsgBox(0, "", "Fehler " & @error & " ist aufgetreten")
Else
MsgBox(0, "", "alles okey")
EndIf
;===============================================================================
;
; Function Name: _RemoteDirGet($rdgUrl [,$rdgTarget=@ScriptDir [,$rdgRek=1 [,$rdgCD=0]]])
; Description: Downloads a HTTP-Folder to your Harddrive
; Parameter(s): $rdgUrl - The HTTP-Folder to download
; $rdgTarget - The target directory on your harddrive
; $rdgRek - Specifies, whether the function should work recursiv, or not.
; $rdgCD - Defines if subdirectories should be created in non-recursive mode.
;
; Requirement(s): #include <String.au3>; <Array.au3>
; Return Value(s): On Success - Returns 1
; On Failure - 0 and sets
; @ERROR = 1 - Given URL is not a HTTP-Directory
; @ERROR = 2 - No Files/Folders found.
;
; Authors: SEuBo (https://autoit.de/www.autoit.de)
;
;===============================================================================
Func _RemoteDirGet($rdgUrl, $rdgTarget=@ScriptDir, $rdgRek=1 ,$rdgCD=0)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]If FileExists(@TempDir & "\rdg.html") Then FileDelete(@TempDir & "\rdg.html")
InetGet($rdgUrl, @TempDir & "\rdg.html")
If StringInStr(FileRead(@TempDir & "\rdg.html"), "Index of ") And StringInStr(FileRead(@TempDir & "\rdg.html"), "<address>") Then
$rdgLinks = _StringBetween(FileRead(@TempDir & "\rdg.html"), "<a href=""", """>")
If Not @error Then
If Not FileExists($rdgTarget) OR Not StringInStr(FileGetAttrib($rdgTarget), "D", 1) Then
DirCreate($rdgTarget)
EndIf
For $i = 0 To 3
_ArrayDelete($rdgLinks, 0)
Next
If $rdgLinks[0] = "/" Then _ArrayDelete($rdgLinks, 0)
[/autoit] [autoit][/autoit] [autoit]For $i = 0 To UBound($rdgLinks) - 1
If StringRight($rdgLinks[$i], 1) = "/" Then
If $rdgRek = 1 Then
_RemoteDirGet($rdgUrl & "/" & $rdgLinks[$i], $rdgTarget & "\" & $rdgLinks[$i])
Else
If $rdgCD = 1 then DirCreate($rdgTarget & "\" & $rdgLinks[$i])
EndIf
Else
InetGet($rdgUrl & "/" & $rdgLinks[$i], $rdgTarget & "\" & $rdgLinks[$i])
EndIf
Next
Return 1
Else
SetError(2) ; No Files/Folders found.
Return 0
EndIf
Else
SetError(1) ; Given URL is not a HTTP-Directory
Return 0
EndIf
EndFunc ;==>_RemoteDirGet