Function MakeDir(DirName$) As String
	Dim path As String
	Dim index As Integer
	
	On Error  Resume Next 
	
     'replace '\' with '/'
	path = ReverseSlashes(DirName$)		' look in this support database for the reverse slashes functions
	path = DirName$
	
	If (Left$(path,1) <> "/") Then
		path = "/" + path
	End If     
	
     'loop through the path and make each subdirectory
	index = Instr(2, path, "/")     
	While index <> 0
		subdir$ = Left$(path, index-1)
		dirName$ = Dir$(subdir$, ATTR_DIRECTORY)
		If (dirName$ ="") Then
			Mkdir(subdir$)
		End If
		index = Instr(index+1,path, "/")          
	Wend
	
     'make the last subdirectory
	dirName$=Dir$(path, ATTR_DIRECTORY)
	
	If (dirName$ ="") Then
		Mkdir(path)
		Err = 0
	End If
	
	MakeDir = path
End Function