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
