VBScript _criar pasta

Criar uma pasta com VBScript

O texto em verde é onde você deve alterar com as informações desejadas

O código:_________________________________

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set WshShell=CreateObject("Wscript.Shell")

arrPasta = "Local onde deseja criar a pasta"

arrPasta = Split(arrPasta,"\")

strPasta = ""

For x = 0 to UBOUND(arrPasta)

   strPasta = strPasta & arrPasta(x) & "\"

   if not objFSO.folderexists(strPasta) Then

      objFSO.CreateFolder strPasta

   End if

Next 

A execução:_________________________________

1 - Abra o bloco de notas

2 - Copie e cole o código abaixo:

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set WshShell=CreateObject("Wscript.Shell")

arrPasta = "C:\Cod_vbscript"

arrPasta = Split(arrPasta,"\")

strPasta = ""

For x = 0 to UBOUND(arrPasta)

   strPasta = strPasta & arrPasta(x) & "\"

   if not objFSO.folderexists(strPasta) Then

      objFSO.CreateFolder strPasta

   End if

Next 

3 - Salve o arquivo com o nome criar_pasta.vbs na area de trabalho OBS.: Não esqueça de colocar o .vbs

4 - Clique sobre o ícone com o nome criar_pasta

OBS.: Se não criar a pasta, talvez seja por que você não tenha permissão de alteração para o local desejado