Descrição:
Como criar e visualizar um diretório no Windows via script?
Solução:
Para isso, deve-se criar um script semelhante ao exemplo abaixo:
Set fso = CreateObject("Scripting.FileSystemObject")
pasta = InputBox("Digite o caminho do diretório a ser criado:" & Chr(13) & Chr(10) & Chr(13) & Chr(10) &"Exemplo: C:\NovaPasta", "Nome do diretório")
If pasta = "" then
 Exit sub
End If
If (fso.FolderExists(pasta)) Then
 If MsgBox ("O diretório '" & pasta & "' já existe. Você deseja visualizar o diretório?",52,"Diretório existente") = 6 then
  Application.ExecuteExternalApp explorer,"", pasta,9
 End If
Else
 fso.CreateFolder(pasta)
 If MsgBox ("Você deseja visualizar o diretório?", 36,"Abrir diretório") = 6 Then
  Application.ExecuteExternalApp explorer,"", pasta,9
 End If
End If
