Oggetto FSO

[Mizushi]

Buongiorno, ancora io.... giornata stressante

Dovrei controllare che al momento di creare una cartella sul server con l'oggetto FSO, la cartella non sia già esistente; cioè se ho già sul server una cartella chiamata "Pippo" non deve essere possibile sovrascrivere quella già esistente con una nuova cartella "Pippo".

Ho scritto questa funzione, ma non crea nessuna cartella sul server, dove sbaglio?:

PUBLIC FUNCTION createDir(dirName)

	on error resume next : err = 0
	
	IF dirName = "" OR dirName = Null THEN
		return = False
	ELSE
		Set objFso = Server.CreateObject("Scripting.FileSystemObject")
		
If objFso.FolderExists(Server.MapPath(dirName)) Then
   objFso.CreateFolder(Server.MapPath(dirName))
		
		IF (err = 0) THEN
			return = True
		ELSEIF (err <> 0) THEN
			return = False
		END IF
		
		Set objFso = Nothing
	
	END IF
    END IF
	
	
	err = 0 : err.clear()
	createDir = return
	
END FUNCTION

[wallrider]

PUBLIC FUNCTION createDir(dirName)

	on error resume next : err = 0
	
	IF dirName = "" OR dirName = Null THEN
		return = False
	ELSE
		Set objFso = Server.CreateObject("Scripting.FileSystemObject")
		
If NOT objFso.FolderExists(Server.MapPath(dirName)) Then
   objFso.CreateFolder(Server.MapPath(dirName))
		
		return = (err = 0)
		Set objFso = Nothing
	
    END IF
	
	
	err = 0 : err.clear()
	createDir = return
	
END FUNCTION

?

[Mizushi]

Grazie!

[Mizushi]

Scusate sapete dirmi se con l'oggetto FSO posso creare sottodirectory all'interno di directory giè esistenti sul server ?

[wallrider]

claro!
il parametro per CreateFolder è il percorso della cartella da creare