crear carpetas en el servidor

Hola
para tomar la extension, usa un split
arrArchivo = Split(strArchivo, ".")
strExtension = arrArcvhivo(1)

y para crear un folder

Set fso = CreateObject("Scripting.FileSystemObject")
strRuta = Server.MapPath("..\documentos\minuevacarpeta")
Set fldr = fso.CreateFolder("C:\MyTest")

te recomiendo que antes de crear el folder
use FolderExists para que no genere error si el folder ya existe

ej
If Not fso.FolderExists(strRuta) Then
Set fldr = fso.CreateFolder("C:\MyTest")
End If

Saludos
Giox



"TR" escribió en el mensaje news:

Hola,

tengo dos problemillas a ver si me pueden ayudar:

la 1º es... tengo un archivo.. por ejemplo "imagen.gif" .. quiero
obtener la extension.. es decir "gif" .. para luego hacer una cosa u otra.

y la 2º es como crear una carpeta en el servidor.. en una ruta concreta
es decir... por ejemplo:

estoy en "c:\inetpub\miweb\alta\index.asp" y quiero crear una carpeta en
"c:\inetpub\miweb\documentos\minuevacarpeta"


me pueden ayudar?

un cordial saludo y gracias,