VBScript _criar arquivo txt

Criar arquivo txt com VBScript

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

O código:_________________________________

Dim objFS, objFile
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFile = objFS.CreateTextFile("Local e nome para o arquivo seguido de .txt")
objFile.WriteLine("Texto que deve contem no arquivo")

A execução:_________________________________

1 - Abra o bloco de notas

2 - Copie e cole o código abaixo:

Dim objFS, objFile
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFile = objFS.CreateTextFile("C:\Cod_vbscript\primeiro.txt")
objFile.WriteLine("Primeiro arquivo txt criado via vbscript")

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

4 - Clique sobre o ícone com o nome arquivo_texto

VBScript _abrir programa

Abrir programa com VBScript

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

O código:_________________________________

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run("Local do programa desejado")

A execução:_________________________________

1 - Abra o bloco de notas

2 - Copie e cole o código abaixo:

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run("Calc.exe")

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

4 - Clique sobre o ícone com o nome abrir_programa

VBScript _copiar arquivo

Copiar arquivo com VBScript

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

O código:_________________________________

Set x = CreateObject("Scripting.FileSystemObject")
x.CopyFile "Local aquivo de origem" , "Local arquivo de destino"

A execução:_________________________________

1 - Abra o bloco de notas

2 - Copie e cole o código abaixo:

Set x = CreateObject("Scripting.FileSystemObject")
x.CopyFile "C:\Users\Public\Pictures\Sample Pictures\Chrysanthemum.jpg" , "C:\Cod_vbscript\"

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

4 - Clique sobre o ícone com o nome copiar_arquivo

Esse comando permite copiar arquivos da rede também 

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

VBScript _apagar pasta

Apagar uma pasta com VBScript

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

O código:_________________________________

Dim fso

Set fso = CreateObject("Scripting.FileSystemObject")

fso.DeleteFolder("Pasta que deseja remover")

A execução:_________________________________

1 - Abra o bloco de notas

2 - Copie e cole o código abaixo:

Dim fso

Set fso = CreateObject("Scripting.FileSystemObject")

fso.DeleteFolder("C:\Cod_vbscript")

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

4 - Clique sobre o ícone com o nome deletar_pasta

OBS.: Esse comando apaga tudo existente dentro da pasta,  sem perguntar nada!!! Cuidado!!
Se a pasta estiver aberta em algum lugar não será apagada.
Se não apagar a pasta, talvez seja por que você não tenha permissão de alteração para o local desejado

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