Function CreateFolderOnWindows(InputFolder As String, Debug As Integer) 
	
	Dim tempFolder As String
	Dim delim As String
	
	delim = "\"
	ret = Split(InputFolder, delim)
	
	Forall x In ret
		
		If Instr(1,x,":") => 1 Then
			' this is a drivename
			If debug = 1 Then
				Print "Drive: "+ x
			End If
			tempFolder = x + "\"
		Else
			' this is a folder
			If debug = 1 Then
				Print "Folder: "+ x
			End If			
			tempFolder = tempFolder + x + "\"
			Mkdir(tempFolder )
		End If
		
	End Forall	
	
End Function