[..] Comment lister les fichiers d'un repertoire web

[auto3yop]

Bonjour,

je souhaiterais savoir comment lister les fichiers present sur un site web

Merci

[jbnh]

Bonjour,

J'ai eu dur dur mais j'ai finalement réussi. J'ai trouvé un UDF sur le forum anglais (de JohnMC) qui permettait de downloader les fichiers d'un répertoire ftp. J'ai modifié la fonction pour qu'elle liste seulement les fichiers.

En gros:

Code : Tout sélectionner

#include <Array.au3>
#include <.FTP.au3>

;********************************************************
$server = 'ftp://ftp.url.net'
$username = '*******'
$pass = '******'
;********************************************************

$Hand = _FTPOpen('Doesnt Matter')


$Ftpc = _FTPConnect($Hand, $server, $username, $pass)
    if @error then 
        msgbox(0,"Error","Connect Error")
        Exit
    EndIf
    
;********************************************************
_FTPGetFolderContents($Hand,"/test/","",1) ;Les fichiers dans le répertoire 'test'
;********************************************************

$Ftpc = _FTPClose($Hand)

Changer les infos de connection, ainsi que le dossier dans _FTPGetFolderContents (mettre "" pour avoir la racine du ftp).

Voila le fichier .FTP.au3 à dispo

Un petit oeil sur la fonction _FTPGetFolderContents

► Afficher le textele code

Code : Tout sélectionner

Func _FTPGetFolderContents(ByRef $l_FTPSession, $s_RemoteDir, $s_LocalDir, $b_RecursiveGet=1, $s_searchfor="*")
    local $folderlist[1]
    Local $i=0
 [b]   $array= _ArrayCreate("Results:")[/b]
    While $i < UBound($folderlist)
        Local $subpath=$folderlist[$i]
        _FtpSetCurrentDir($l_FTPSession,"/" & $s_RemoteDir & $subpath)
        local $FileInfo = _FtpFileFindFirst ($l_FTPSession,$s_searchfor)
        
        while $FileInfo[0]<>0   
            if $FileInfo[1]=16 and $FileInfo[10] <> "." and $FileInfo[10] <> ".." And $b_RecursiveGet<>0 Then
                Local $iUBound = UBound($folderlist)
                ReDim $folderlist[$iUBound + 1]
                $folderlist[$iUBound] = "/" & $subpath & $FileInfo[10] & "/"
                
            elseif $FileInfo[1]=128 then
                $downloadto = $s_LocalDir & stringReplace ($subpath,"/","\")
                If Not FileExists($downloadto) then DirCreate($downloadto)
               [b] _ArrayAdd($array, $subpath&$FileInfo[10])[/b]
                            
            endif
    
            $FileInfo = _FtpFileFindNext($l_FTPSession)
        wend
        
        _FTPFileFindClose($l_FTPSession)
        $i+=1
    WEnd
    [b]_ArrayDisplay ($array,"Results")[/b]
EndFunc  ;==>_FTPGetFolderContents
 

[Tlem]

Je pense que auto3yop souhaite lister les fichiers d'un site WWW.
Pour faire par exemple une aspiration de site ... et je ne saurais cautionner ce type de pratique.