SyntaxBomb - Indie Coders

	Method CreateSerialDir(SerialDir:String)   			'Example CreateSerialDir("C:\Users\User\Desktop\Test\Banana\Moshe\Apple\")
														'This Creates Dir And Sub Dirs if they dont exist
	 	Local SD:String[100], Char:String, WrdCntr		'Spaces are not Good between name and Slash.. Example:   "Banana \ Moshe\ Apple\" = [Not Good]
		SerialDir = Trim(SerialDir)
		If IsSlash(Right(SerialDir, 1)) = False Then SerialDir = SerialDir + "\"
		For Local I = 1 To Len (SerialDir)
			Char = Mid(SerialDir, I, 1)
			If IsSlash(Char) Then
				SD[WrdCntr] = SD[WrdCntr] + Char
				WrdCntr = WrdCntr + 1
			Else
				SD[WrdCntr] = SD[WrdCntr] + Char
			End If
		Next
		
		Local BuiltDir:String
		For Local DAR:String = EachIn SD
			If DAR.Length > 0 Then
				BuiltDir = BuiltDir + DAR
				If DirectoryExsists(BuiltDir) = False Then
					CreateDir(BuiltDir)
					Print BuiltDir
				End If
			Else
				Exit
			End If
		Next
		
	   '----------------------------------'
	   
			Function IsSlash(Sign:String)
				 If Sign = "\" Then Return True
				 If Sign = "/" Then Return True
			End Function
		
			Function DirectoryExsists(Dir:String)
				Local TempDirHandle
				TempDirHandle = ReadDir(Dir)
				If TempDirHandle > 0 Then
					CloseDir(TempDirHandle)
					Return True
				End If
			End Function
		
	End Method