No se exactamente qué quieras hacer, así que te pongo algunas cosas que se.
Filecopy --> te sirve para copiar archivos
Name ---> te sirve para cambiar de nombre a algún archivo o carpeta
Kill -------> te sirve para borrar un archivo
MkDir ----> te sirve para crear carpetas
RmDir----> borra carpetas
CDir ----> cambia el directorio actual
Para saber si un archivo existe o no....
Con esto puedes conocer la extensión de un archivo...
Function MostrarTipoDeCarpeta(especificaciondearchivo)
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(especificaciondearchivo)
s = UCase(f.Name) & " is a " & f.Type
MostrarTipoDeCarpeta = s
End Function
(No lo he probado, es el ejemplo de la ayuda del MSDN)
Espero te sirva, si no.... sé más específico para poder ayudar mejor....
