Beiträge von mr_merlin

#include <Date.au3>
#include <Array.au3>
#include <File.au3>
$Server=Inputbox("Eingabe des Startverzeichnisses","Verzeichnis")
MsgBox(1,"Startverzeichnis",$Server)
global $sZiel=Inputbox("Eingabe des Zielverzeichnisses","Verzeichnis")
If StringRight($sZiel, 1) <> '\' Then $sZiel &= '\'
MsgBox(1,"Zielverzeichnis",$sZiel)

$s_MoveDatum=InputBox("Eingabe des Datums, ab dem verschoben werden soll","Datum (YYYYMMDD)")
$s_Datum=StringRegExpReplace($s_MoveDatum,'(\d{4})(\d{2})(\d{2})(.*)', '$1/$2/$3')
$Now=StringRegExpReplace(_NowCalc(),'(\d{4})(\d{2})(\d{2})(.*)', '$3/$1/$2')
$Tage=_DateDiff('D',$s_Datum,$Now)
MsgBox(1,"",$Tage)
$Filter=("*") ; Angabe der Fileendungen ohne * davor und mit | getrennt
$Test= _FileMoveDate($Server,$Tage,True,True,True,False,$Filter)
; ==============================================================================
; Parameterangaben in der Reihenfolge ihres Auftretens
; ------------------------------------------------------------------------------
; $Server = Angabe des Verzeichnisses
; $Tage = Angebe des Filealters, nachdem gelöscht wird
; True = Auch Files mit Read-Only werden gelöscht
; True = Auch Files in Unterverzeichnissen werden gelöscht
; False = Leere Unterverzeichnisse werden nicht gelöscht
; True = Eine Log-Ausgabe über die Konsole
; $Filter = Angabe der Fileendungen, die zu löschen sind
; ==============================================================================
;=================================================================================================================================================
; Funktionsname: _FileMoveDate($sPath, $iDays[, $bForceDel][, $bRek][, $bDirDel][, $bLog], [$sFilter])
; ------------------------------------------------------------------------------------------------------------------------------------------------
; Beschreibung: löscht Dateien in einem ausgewähltem Verzeichnis (rekursiv) nach einer angegebenen Anzahl von Tagen
; Parameter(s): $sPath = Verzeichnis, aus dem die Dateien gelöscht werden sollen.
; $iDays = Dateien, die älter als $iDays (in Tagen) sind, löschen.
; $bForceDel = wenn "True" werden auch Dateien/Verzeichnisse gelöscht, die gegen löschen geschützt sind ("R"-Attribut)
; $bRek = wenn "True" wird das Verzeichnis rekursiv (inkl. Unterverzeichnisse) durchsucht.
; $bDirDel = wenn "True" wird das Unterverzeichnis gelöscht, wenn es (aufgrund der Löschaktion) leer ist.
; $bLog = wenn "True" wird das Ergebnis der Löschaktion in die Console geschrieben.
; $sFilter = hier können Dateierweiterungen (mit | getrennt) gegeben werden für welche die Löschaktion gilt *=alle
; #include <Date.au3>
; Rückgabewerte: bei Erfolg Rückgabe = 1
; Verzeichnis existiert nicht Rückgabe = 2
; Verzeichnis ist leer Rückgabe = 3
; bei Löschfehlern Rückgabe = 0
; und @error:
; 1 = $iDays ist keine oder eine negative Zahl
; Autoren: Oscar (http://www.autoit.de)
; Micha_he (http://www.autoit.de)
; Angepasst: autoBert um $sFilter erweitert
; Stefan Krismer erweitert um Verzeichnisprüfung - 04.04.2013
; Beispiel: _FileMoveDate('Verzeichnis', Tage, True, True, False, True, Filter (txt|bak|usw - immer getrennt durch | und ohne " ")
;==================================================================================================================================================
Func _FileMoveDate($sPath, $iDays, $bForceDel = False, $bRek = True, $bDirDel = False, $bLog = True, $sFilter = "*")
Local $hSearchm, $hEmpty, $sFile, $sDate, $iRet,$Return
Local $aFilter = StringSplit($sFilter, "|")
If @error Then
$aFilter[0] = $sFilter
_ArrayDelete($aFilter,1)
Else
_ArrayDelete($aFilter,0)
EndIf
If (Not IsNumber($iDays)) Or ($iDays < 0) Then Return SetError(1, 0, 0) ; Prüfung, ob $iDays eine Zahl die >0 ist
If StringRight($sPath, 1) <> '\' Then $sPath &= '\'
$hSearch = FileFindFirstFile($sPath & '*.*')
$iLeer = DirGetSize($sPath) ; Prüfung, ob Verzeichnis leer ist
if $iLeer = 0 Then
Return 3
endif
If $hSearch=-1 Then ; Prüfung, ob das Verzeichnis existiert
Return 2
EndIf
If @error Then Return SetError(2, 0, 0)
While 1
$sFile = FileFindNextFile($hSearch)
If @error Then ExitLoop
If @extended Then
If $bRek Then
_FileMoveDate($sPath & $sFile, $iDays, $bForceDel, $bRek, $bDirDel, $bLog, $sFilter)
If $bDirDel Then
$hEmpty = FileFindFirstFile($sPath & $sFile & '\*.*')
If @error Then
If $bForceDel Then FileSetAttrib($sPath & $sFile, '-R')
$iRet = DirRemove($sPath & $sFile)
If $bLog Then ConsoleWrite('Delete Folder "' & $sPath & $sFile & '" = ' & StringMid('No Yes', $iRet * 3 + 1, 3) & @CR)
EndIf
FileClose($hEmpty)
EndIf
EndIf
Else
$sDate = StringRegExpReplace(FileGetTime($sPath & $sFile, 0, 1), '(\d{4})(\d{2})(\d{2})(.*)', '$1/$2/$3')
If _DateDiff('D', $sDate, _NowCalc()) >= $iDays Then
$aExt = StringSplit($sPath & $sFile, ".")
If $aFilter[0] = "*" Then
$bDel=True
Else
$bDel = False
For $i = 0 To UBound($aFilter) - 1
If $aExt[$aExt[0]] = $aFilter[$i] Then
$bDel = True
ExitLoop
EndIf
Next
EndIf
If $bDel Then
If $bForceDel Then FileSetAttrib($sPath & $sFile, '-R')
$iRet = FileMove($sPath & $sFile,$sZiel,9)
If $bLog Then ConsoleWrite('Move File "' & $sPath & $sFile & '" = ' & StringMid('No Yes', $iRet * 3 + 1, 3) & @CR)
EndIf
EndIf
EndIf
WEnd
FileClose($hSearch)
Return 1
EndFunc

#include <Array.au3>
#include <date.au3>
#include <file.au3>
$Verzeichnis='P:\'
$erg=FileListRecursive($Verzeichnis,'*.*',0,1)
_ArrayDisplay($erg)
;===============================================================================
; Name: FileListRecursive
; Description: Sucht rekursiv nach Dateien und Ordnern
; Parameter(s): $szStartPath = Path ab dem gesucht werden soll
; $szFileName = Datei nach der gesucht werden soll
; $iFlag (optional) = Gibt an was zurückgegeben werden soll
; 0 = Dateien und Ordner (default)
; 1 = nur Dateien
; 2 = nur Ordner (ignoriert $szFileName)
; $iRetFormat (optional) = Rückgabeformat
; 0 = als String (default)
; 1 = als Array
; $szDelim (optional) = Trennzeichen wenn $iRetFormat = 0 (@CRLF ist default)
; Requirement(s): keine
; Return Value(s): bei Erfolg: Ergebnis als String oder Array
; bei Fehler:
; Author(s): bernd670
;
;===============================================================================
Func FileListRecursive($szStartPath, $szFileName, $iFlag = 0, $iRetFormat = 0, $szDelim = @CRLF)
Local $hFF, $szFindName, $szRetValue = ""
If $iFlag = Default Then $iFlag = 0
If $iRetFormat = Default Then $iRetFormat = 0
If $szDelim = Default Then $szDelim = @CRLF
If StringRight($szStartPath, 1) <> "" Then $szStartPath &= ""
If $iFlag < 2 Then
$hFF = FileFindFirstFile($szStartPath & $szFileName)
If $hFF <> -1 Then
While True
$szFindName = FileFindNextFile($hFF)
If @error Then
FileClose($hFF)
ExitLoop
EndIf
If ($szRetValue <> "") And (StringRight($szRetValue, StringLen($szDelim)) <> $szDelim) Then $szRetValue &= $szDelim
$szRetValue &= $szStartPath & $szFindName
WEnd
EndIf
EndIf
$hFF = FileFindFirstFile($szStartPath & "*.*")
If $hFF = -1 Then Return $szRetValue
While True
$szFindName = FileFindNextFile($hFF)
If @error Then
FileClose($hFF)
ExitLoop
EndIf
If StringInStr(FileGetAttrib($szStartPath & $szFindName), "d") Then
If ($szRetValue <> "") And (StringRight($szRetValue, StringLen($szDelim)) <> $szDelim) Then $szRetValue &= $szDelim
If ($iFlag = 0) Or ($iFlag = 2) Then $szRetValue &= $szStartPath & $szFindName & "" & $szDelim
$szRetValue &= FileListRecursive($szStartPath & $szFindName & "", $szFileName, $iFlag, 0, $szDelim)
EndIf
WEnd
If StringRight($szRetValue, StringLen($szDelim)) = $szDelim Then $szRetValue = StringTrimRight($szRetValue, StringLen($szDelim))
If $iRetFormat = 0 Then
Return $szRetValue
Else
Return StringSplit($szRetValue, $szDelim, 1)
EndIf
EndFunc ;==>FileListRecursive

;===============================================================================
; Function Name: _RecursiveFileListToArray($sPath, $sPattern, $iFlag = 0, $iFormat = 1, $sDelim = @CRLF)
; Description:: gibt Verzeichnisse und/oder Dateien (rekursiv) zurück, die
; einem RegExp-Pattern entsprechen
; Parameter(s): $sPath = Startverzeichnis
; $sPattern = ein beliebiges RexExp-Pattern für die Auswahl
; $iFlag = Auswahl
; 0 = Dateien & Verzeichnisse
; 1 = nur Dateien
; 2 = nur Verzeichnisse
; $iFormat = Rückgabeformat
; 0 = String
; 1 = Array mit [0] = Anzahl
; 2 = Nullbasiertes Array
; $sDelim = Trennzeichen für die String-Rückgabe
; Requirement(s): AutoIt 3.3.0.0
; Return Value(s): Array/String mit den gefundenen Dateien/Verzeichnissen
; Author(s): Oscar (http://www.autoit.de)
; Anregungen von: bernd670 (http://www.autoit.de)
;===============================================================================
Func _RecursiveFileListToArray($sPath, $sPattern, $iFlag = 0, $iFormat = 1, $sDelim = @CRLF)
Local $hSearch, $sFile, $sReturn = ''
If StringRight($sPath, 1) <> '\' Then $sPath &= '\'
$hSearch = FileFindFirstFile($sPath & '*.*')
If @error Or $hSearch = -1 Then Return SetError(1, 0, $sReturn)
While True
$sFile = FileFindNextFile($hSearch)
If @error Then ExitLoop
If StringInStr(FileGetAttrib($sPath & $sFile), 'D') Then
If StringRegExp($sPath & $sFile, $sPattern) And ($iFlag = 0 Or $iFlag = 2) Then $sReturn &= $sPath & $sFile & '\' & $sDelim
$sReturn &= _RecursiveFileListToArray($sPath & $sFile & '\', $sPattern, $iFlag, 0)
ContinueLoop
EndIf
If StringRegExp($sFile, $sPattern) And ($iFlag = 0 Or $iFlag = 1) Then $sReturn &= $sPath & $sFile & $sDelim
WEnd
FileClose($hSearch)
If $iFormat Then Return StringSplit(StringTrimRight($sReturn, StringLen($sDelim)), $sDelim, $iFormat)
Return $sReturn
EndFunc