Beiträge von BE__Happy

#include <File.au3>
#include <Array.au3>
#include <MsgBoxConstants.au3>


Global $ordnernamen[100]
Global $dateinamen[100]
Global $ursprungspfard = "C:\Users\Marv\Dropbox\Hompage"
Global $ordneranzahl
Global $dateizahl
Global $zielpfard = "D:\Fotos"
Global $zielordner [100]
Global $zielordnerzahl
Global $zieldateiname [5000]
Global $zielzahl
Global $unterordner [10]
Global $unterordnerzahl
Global $kopierpfard = "D:\Best of"


$ordnernamen = _FileListToArrayRec ($ursprungspfard,"*", $FLTAR_FOLDERS, $FLTAR_NOPATH)


$ordneranzahl = _ArrayMax ($ordnernamen)


while $ordneranzahl > 0
   $dateinamen = _FileListToArrayRec ($ursprungspfard & "\" & $ordnernamen[$ordneranzahl] ,"*", $FLTAR_FILES, $FLTAR_NOPATH) ;warsch. Problem mit dateinahmen einfügen


$dateizahl = _ArrayMax ($dateinamen)


while $dateizahl > 0
$dateinamen[$dateizahl] = StringReplace ($dateinamen[$dateizahl] , "V", "")
$dateizahl = $dateizahl -1
WEnd


$dateizahl = _ArrayMax ($dateinamen)


$zielordner = _FileListToArrayRec ($zielpfard,"*" ,$FLTAR_FOLDERS, $FLTAR_NOPATH)


$zielordnerzahl = _ArrayMaxIndex ($zielordner)


While $zielordnerzahl > 0
$unterordner = _FileListToArrayRec ($zielpfard & "\" & $zielordner[$zielordnerzahl] ,"*" ,$FLTAR_FOLDERS, $FLTAR_NOPATH)
$unterordnerzahl = _ArrayMax ($unterordner)


While $unterordnerzahl > 0
$zieldateiname = _FileListToArrayRec ($zielpfard & "\" & $zielordner[$zielordnerzahl] & "\" & $unterordner[$unterordnerzahl] ,"*" ,$FLTAR_FILES, $FLTAR_NOPATH)
$zielzahl = _ArrayMax ($zieldateiname)


While $zielzahl > 0


While $dateizahl > 0


If $zieldateiname[$zielzahl] = $dateinamen[$dateizahl] Then
FileCopy ($zielpfard & "\" & $zielordner[$zielordnerzahl] & "\" & $unterordner[$unterordnerzahl] & "\" & $zieldateiname[$zielzahl] , $kopierpfard & "\" & $zielordner[$zielordnerzahl] & "\" , $FC_CREATEPATH  )
EndIf


$dateizahl = $dateizahl - 1
WEnd
$dateizahl = _ArrayMax ($dateinamen)
$zielzahl = $zielzahl - 1
WEnd


$unterordnerzahl = $unterordnerzahl - 1
WEnd


$zielordnerzahl = $zielordnerzahl - 1
WEnd


$ordneranzahl = $ordneranzahl - 1
WEnd

#include <File.au3>
#include <Array.au3>
#include <MsgBoxConstants.au3>


Global $ordnernamen[100]
Global $dateinamen[5000]
Global $run
Global $ursprungspfard
Global $ordneranzahl
Global $dateizahl


$run = 0
$ursprungspfard = "C:\Users\Marv\Dropbox\Hompage"


$ordnernamen = _FileListToArrayRec ($ursprungspfard,"*", $FLTAR_FOLDERS, $FLTAR_NOPATH) 


$ordneranzahl = _ArrayMax ($ordnernamen)


while $ordneranzahl > 0
   $dateinamen = _FileListToArrayRec ($ursprungspfard & $ordnernamen[$ordneranzahl] ,"*", $FLTAR_FILES, $FLTAR_NOPATH)
   $ordneranzahl = $ordneranzahl - 1
WEnd


$dateizahl = _ArrayMax ($dateinamen)


while $dateizahl > 0
StringReplace ($dateinamen[$dateizahl]  , "v", "")
$dateizahl = $dateizahl -1
WEnd