VBScript é uma linguagem de programação leve desenvolvido pela Microsoft. É muito útil saber como programar em VBScript, uma vez que seus intérpretes para o idioma são incorporados em todos os sistemas operacionais da Microsoft. Nenhuma ferramenta de programação especiais são necessários para executar ou escrever código em VBScript. Essa linguagem pode ser usado do lado do cliente ou adicionados a páginas da Web.
direita; clique no Windows Explorer, selecione "New" no menu pop-up e clique no item de menu "Documento de texto" para criar um arquivo de texto.
Abra o arquivo recém-criado para a edição. Este será o recipiente para todo o código VBScript que você escreve. Em cada passo abaixo, você verá várias linhas de código com uma descrição Inglês simples do que eles fazem. Quando você coloca todas essas linhas de código juntos, você acaba com um script para criar um arquivo de texto.
Criar uma variável para o objeto sistema de arquivos e instanciá-lo (configurá-lo para uma nova instância do objeto). Em VBScript criar variáveis de "dimensionamento"-los com o comando "Dim". variáveis complexas (aqueles que não são strings, inteiros ou booleanos) têm de ser instanciado antes que você possa usá-los.
Copie o seguinte código em seu arquivo de texto:
Dim objFSO `Como FileSystemObject
Definir objFSO = CreateObject ( "Scripting.FileSystemObject")Adicionar uma variável para o caminho do diretório onde você quer colocar o arquivo e defina-o para o local desejado.
Copie o seguinte código em seu arquivo de texto:
strDirectory Dim `As String
strDirectory = "C: NewDirectory"Certifique-se de que existe a pasta do diretório. Se o diretório não está lá, então criá-la usando o objeto sistema de arquivos.
Copie o seguinte código em seu arquivo de texto:
objDirectory Dim `As Object
Se objFSO.FolderExists (strDirectory) Em seguidaDefinir objDirectory = objFSO.GetFolder (strDirectory)
Outro
Definir objDirectory = objFSO.CreateFolder (strDirectory)
Fim se
Faça uma variável de cadeia para o nome do arquivo e defina-o para um valor apropriado.
Copie o seguinte código em seu arquivo de texto:
strFile Dim `As String
strFile = "NEWFILE.TXT"Criar uma variável para o arquivo de texto e instanciá-lo. O método CreateTextFile tem um parâmetro opcional para substituir o arquivo que ele já existe.
Copie o seguinte código em seu arquivo de texto:
objTextFile Dim `As Object
blnOverwrite Dim `As Boolean
blnOverwrite = True
Definir objTextFile = objFSO.CreateTextFile (strDirectory "" strFile, blnOverwrite)Gravar dados para o arquivo recém-criado com o código abaixo. Existem dois métodos para a gravação de arquivos, "Write" e "WriteLine". O último método inclui automaticamente um caractere de nova linha para você, enquanto a primeira apenas acrescenta dados para o que já está presente.
Copie o seguinte código em seu arquivo de texto:
objTextFile.Write ( "Este é")
objTextFile.WriteLine ( "um novo arquivo de texto")
"Isso resulta na cadeia" Este é um novo arquivo de texto "Feche o arquivo de código e liberam corretamente todos os objetos.
Copie o seguinte código em seu arquivo de texto:
objTextFile.Close
Definir objTextFile = Nothing
Definir objDirectory = Nothing
Definir objFSO = NothingSalve todo o código que você criou nas etapas anteriores para o arquivo de texto no início e, em seguida, feche o arquivo. Renomeie o arquivo com ".vbs" em vez de ".txt" por certo, clicar sobre o arquivo e selecione "Renomear" no menu pop-up. Dê um duplo clique no arquivo para executar o código.
dicas avisos
- Substituindo o arquivo irá criar um novo arquivo em branco de cada vez. Se você deseja criar um arquivo, como um log de eventos, é melhor para definir esse valor para Falso e verifique se você tem um novo nome cada vez.
- Use o comando FileExists do objeto do sistema de arquivos para certificar-se de que o arquivo foi criado com sucesso.
- Se preferir script com Option Explicit ligado, em seguida, remover os comentários do código antes de cada "Como" declaração.
- Se você não certifique-se de que o diretório pasta onde você quer criar o arquivo já existe, você pode gerar erros.