Read Dir and filename and pack it?

BlitzMax Forums/BlitzMax Programming/Read Dir and filename and pack it?

Caton(Posted March) [#1]
How can it write each file and files inside directory and write directory name and would I do it from directory instead of using a list file.

		stream$="cfg1/app.txt"
		If Asc(stream$) Then CreateDir(UnpackDir$+stream$)


files.txt
2
test.txt
config\settings.txt


test.txt
Testing...


config\settings.txt
Height = 800
Width = 600
Depth = 32
Mode = 2


Packer.bb


Unpacker.bmx



Caton(Posted March) [#2]
Guys, I relly need help to detect directory or file from string.

like data\config.bin
settings.cfg


Henri(Posted March) [#3]
Hi,

in Blitzmax you could do it in something like this:
Strict

Local s:String = "data\config.bin"

Local ar:String[] = s.Replace("/", "\").split("\")
If Not ar Then Print "String was empty"; End 'Always good to check before accessing objects

If ar.length > 1 Then
	Print "There are folders!"

	For Local i:Int = 0 Until ar.length - 1	'Everything else, but not the last, as that is a file
		
		Print "Folder: " + ar[i]
		
	Next
	
	Print "File: " + ar[ ar.length - 1 ]
Else
	'No folders, just file
	Print "File: " + ar[0]
EndIf


There are many ways, this is just one.

-Henri