Visual Basic - Crear carpeta en Windows 2003 SERVER

Hola, necesito saber como se puede crear una carpeta, el sistema es Windows 2003 Server.

La aplicación funciona correctamente en Xp-profesional

En uno de los procesos, debe de crear una carpeta en el sistema si no existe, donde se creará un registro de la aplicación.

Si existe la carpeta funciona correctamente, si no existe también lo detecta, pero al ejecutar la instrucción de MKDIR se produce el error.

'Comprobar la existencia del registro de aplicación.
Set fs = CreateObject("Scripting.FileSystemObject")
If Not fs.FileExists(App.Path & "\reg.clv") = True Then
mkdir App.Path & "\log
else
'vacio.
End If

Gracias por vuestra ayuda.

Con ese objeto FileSystemObject que has creado tienes un método para crear carpetas, prueba así:

fs.CreateFolder App.Path & "\log"

Un saludo.