16-01-2007, 11:31 PM
Get all the files in a folder:
FileList() now contains a path of a file in that folder in each index. FilePath(1) = first file, FilePath(2) = second, etc.
Compress file:
IE:
C:\Temp.txt is compressed and saved as C:\Temp.txt.compressed (old file is untouched, just a new compressed one is made), using the RLE_Loop compression.
Decompression is the same.
See? Easy. :wink:
Code:
Dim FileList() As string
FileList = AllFilesInFolders(, True) 'Last True means we are using subfolders - false for no
FileList() now contains a path of a file in that folder in each index. FilePath(1) = first file, FilePath(2) = second, etc.
Compress file:
Code:
Compression_Compress , ,
IE:
Code:
Compression_Compress "C:\Temp.txt.compressed", "C:\Temp.txt", RLE_Loop
C:\Temp.txt is compressed and saved as C:\Temp.txt.compressed (old file is untouched, just a new compressed one is made), using the RLE_Loop compression.
Decompression is the same.
See? Easy. :wink: