J'ai fait celà dans l'intention de récupérer et de stocker les fichiers que je visionne sur youtube sans toujours aller les chercher moi-même dans le dossier des fichiers internet temporaire.
Le script vérifie à chaque 15 secondes pour de nouveaux fichiers.
Assez écrit, voilà le code.
Code : Tout sélectionner
#include<file.au3>
If IniRead("cfg.ini","","FirstStart","0") = 0 Then
IniWrite("cfg.ini","","FirstStart","1")
$location = ""
$savefolder = ""
While Not FileExists($location) Or Not FileExists($savefolder)
$location = InputBox("Attention","Veuillez entrez le dossier où sont stockés vos fichiers internet temporaire","M:\Backup\Bases de données\Mozilla\Firefox Profile\njn833qw.default\Cache")
If StringRight($location,1) <> "\" Then
$location = $location & "\"
EndIf
$savefolder =InputBox("Attention","Veuillez choisir un dossier de sauvegarde",@ScriptDir & "\")
If StringRight($savefolder,1) <> "\" Then
$savefolder = $savefolder & "\"
EndIf
WEnd
IniWrite("cfg.ini","","TempInternetFolder",$location)
IniWrite("cfg.ini","","RefreshTime","15")
IniWrite("cfg.ini","","Filter","1")
IniWrite("cfg.ini","","SaveFolder",$savefolder)
EndIf
$location = IniRead("cfg.ini","","TempInternetFolder","")
$refresh = IniRead("cfg.ini","","RefreshTime","15") * 1000
$filter = IniRead("cfg.ini","","Filter","1") * 1048576
$savefolder = IniRead("cfg.ini","","SaveFolder","1")
While 1
checktemp()
Sleep($refresh)
WEnd
Func checktemp()
$files = _FileListToArray($location,"*",1)
For $i = 1 To $files[0]
$file = $location & $files[$i]
If FileGetSize($file) > $filter Then
$newfile = StringTrimRight($files[$i],3)
If StringRight($newfile,1) <> "." Then
$newfile = $files[$i] & ".flv"
Else
$newfile = $files[$i]
EndIf
FileMove($location & $files[$i],$savefolder & $newfile)
EndIf
Next
EndFunc