CB Repository

//MakeDir2()
//Luo kerralla kaikki kansiot, joita annetussa polussa ei ole.
//Palauttaa True, mikäli kaikkien kansioiden tekeminen onnistui tai False, mikäli operaatio keskeytyi jossain vaiheessa.
//Palauttaa True myös silloin, kun kaikki kansiot olivat jo luotuna.

//ESIMERKKIKOODI LUO C:\TEMP\ -HAKEMISTOON SISÄKKÄISIÄ KANSIOITA
SCREEN 800,50
directory$ = "c:\temp\kansio1\kansio2\kansio3"
If MakeDir2(directory$) Then
	Execute directory
	Repeat
		Text 0,0, "Hakemisto '"+directory+"' o"+"n nyt luotu ja avattu Explorerissa."
		DrawScreen
	Forever
Else
	MakeError "Hakemistoa '"+directory+"' ei kyetty täysin luomaan!"
EndIf

Function MakeDir2(directory$)
	directory	= Replace(directory, "/","\")
	path$		= ""
	If Right(directory,1) = "\" Then directory = Left(directory,Len(directory)-1)
	For i = 1 To CountWords(directory, "\")
		folder$ = GetWord(directory, i, "\")
		path$	= path + folder + "\"
		If Not IsDirectory(path) Then
			MakeDir path
			If Not IsDirectory(path) Then Return False
		EndIf
	Next i
	Return True
EndFunction