[1llusion]

Hi!

I'm making a little project. It will be an AIO for processing files. Mass renaming, cloning etc... I use it mainly for spreading purposes.
The script is not meant to be compiled. All you do is open it in any editor and read the comments. Its all pretty straight forward.

If you add some new function in it, just pm me and I will update it here =)

Code:

;/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// ;//||||||||||||||||||||||||||||||||||||||||||||By 1llusion. Please give credits if distributing|||||||||||||||||||||||||||||||||||||||||||// ;/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// ;//-------------------------------------------------------1llusions Tools-----------------------------------------------------------------// ;// File Dumper: Dumps all file names from a dirrectory to a single text file named: dump[number].txt // ;// File Cloner: Clones a file and changes name from selected list // ;//;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;// $UseFileDumper = 0 ; Set to 1 if you want to use file dumper. // $UseFileCloner = 0 ; Set to 1 is you want to use file cloner. // ;/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// ;// File Dumper Settings // ;//_______________________________________________________________________________________________________________________________________// $path = "" ;Set dirrectory, which you want to dump. Leave blank for current dirrectory. // $filetype = "*" ;Set what kind of files you want to dump. Enter: txt for text files, exe for executables etc or leave * for all files. // $output = "" ;Set dirrectory, where the dump file will go. Leave blank for current dirrectory // ;/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// ;// File cloner settings // ;//_______________________________________________________________________________________________________________________________________// $file = "app.exe" ;Put here the source file with its extension. If it is not in current dirrectory, put in the full dirrectory // $list = "dump1.txt" ;Name of the dump file. // $extension = ".exe" ;Put here the extension which you want to use. (Including the ".") Example: .exe // $output = "" ;Leave blank for current dirrectory. // ;/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// ;Don't touch the code bellow unless you know what you are doing. If $UseFileDumper = "1" Then _FileDump($path, $filetype, $output) If $UseFileCloner = "1" Then _FileClone($file, $list, $extension, $output) Func _FileDump(ByRef $path, ByRef $fileType, ByRef $output) If $path = "" Then $search = FileFindFirstFile("*." & $filetype) else $search = FileFindFirstFile($path & "/*." & $filetype) endif If $search = -1 Then MsgBox(0, "Error", "No files/directories matched the search pattern") Exit EndIf $num = 1 While 1 If fileexists("dump" & $num & ".txt") then $num += 1 Else exitloop EndIf WEnd If $output = "" then $fileopen = FileOpen("dump" & $num & ".txt", 9) Else $fileopen = FileOpen($output & "/dump" & $num & ".txt", 9) endif While 1 $file = FileFindNextFile($search) If @error Then ExitLoop FileWriteLine($fileopen, $file) wend FileClose($fileopen) FileClose($search) MsgBox(1,"","done") EndFunc func _FileClone(ByRef $file,ByRef $list,ByRef $extension,ByRef $output) $line = 1 $dump = FileOpen($list) SplashTextOn("Copying", "Starting") While 1 $text = FileReadLine($dump, $line) if @error = -1 then exitloop If $output = "" then FileCopy($file, $text & $extension) Else FileCopy($file,$output & "/" & $text & "." & $extension) Endif $line += 1 ControlSetText("Copying", "", "Static1", $text) WEnd FileClose($dump) EndFunc