День добрый.
Поиском посмотрел (может плохо), в общем нужно искать в автоматическом режиме одинаковые файлы (имя файла) в папке. Расширения у файлов разные, имя одинаковое.
перебрал файлы, нашел их имена в папке. Как теперь сцепить их в группы одинаковых.....ничего на ум не приходит
Поиском посмотрел (может плохо), в общем нужно искать в автоматическом режиме одинаковые файлы (имя файла) в папке. Расширения у файлов разные, имя одинаковое.
Код:
#Include<file.au3>
;#include <Zip.au3>
#include <Date.au3>
#Include <WinAPIEx.au3>
#include <ZIP_UDF.au3>
#include <Encoding.au3>
#Include <Array.au3>
$filefolder="d:\Test\Test\Test\Test"
If FileExists($filefolder) Then
Dim $parse,$parse1
$array = StringSplit(StringReplace($filefolder, "\", @LF), @LF)
$parse=$array[5] ;название папки
$parse1 = $array[1] & "\" &$array[2]& "\" &$array[3]& "\" &$array[4]& "\" &$array[5] & "\"
FileCopy($parse1 & "A1_*.*", "D:\Test\BackUP\" &$array[5] & "\" ,9)
$FileList=_FileListToArray("D:\!Parma\Do2Server\Do\" & $parse)
_ArrayDisplay($FileList,"$FileList")
$search = FileFindFirstFile("d:\Test\Test\Test\" & $parse & "\A1_*.*")
;MsgBox(4096, "", $sFile )
EndIf
For $i=1 to $FileList[0] step 1
$sFile = FileFindNextFile($search)
$namefile=StringSplit($sFile,".")
MsgBox(4096, "", $namefile[1])
Next
перебрал файлы, нашел их имена в папке. Как теперь сцепить их в группы одинаковых.....ничего на ум не приходит