VBS , também conhecido como " Visual Basic Script , " causou um susto em 2000, após o " Eu te amo" vírus infectou 15 milhões de computadores e derrubou os servidores ao redor do mundo . Quando a Microsoft criou VBS , eles usaram Visual Basic como modelo. VBS não é um vírus , mas tem a capacidade de acessar o sistema de arquivos do usuário e outros recursos do computador. Você pode usar VBS para ler o conteúdo de um arquivo , digitando apenas algumas linhas de código. Instruções
1

o botão direito do mouse no desktop e selecione " New ". Selecione "Arquivo de texto" a partir da lista drop-down. O Windows irá criar um novo arquivo de texto e exibir seu ícone na área de trabalho
2

Adicione o seguinte código para o documento: .

Dim objFSObject , strFile , strFileContents , strCurrentLine , arrLineCollection

CONST ForReading = 1

'Criar Sistema de Arquivo objeto

Set objFSObject = CreateObject (" Scripting.FileSystemObject " )

As duas primeiras linhas criar variáveis ​​. A terceira linha cria um objeto do sistema de arquivos
3

Adicione este código abaixo do código na etapa 2: .

StrFile = " C: \\ someFolder \\ arquivo.txt "

Substitua "C: \\ someFolder \\ somefile " com o caminho para um arquivo de texto no seu disco rígido . Por exemplo , para usar um arquivo chamado " teste.txt " localizado na pasta " temp" em sua unidade "C" , adicione a seguinte linha :

strFile = "C: \\ temp \\ teste.txt "
4

Adicione este código abaixo do código na etapa 3: .

strFileContents = objFSObject.OpenTextFile ( strFile , ForReading ) ReadAll

arrLineCollection = Split ( strFileContents , vbCrLf )

a primeira linha lê o arquivo e armazena em " strFileContents ". A segunda linha cria uma coleção (array ) e armazena cada linha do arquivo como um elemento na matriz. Por exemplo, se o arquivo de entrada tem três linhas , a matriz terá três elementos
5

Adicione este código abaixo do código na etapa 4: .

Para Cada strCurrentLine em arrLineCollection

wscript.echo "Linha atual =" & strCurrentLine

Próxima

objFSObject.Close

Este bloco de código percorre a matriz e exibe cada linha.

6

Clique em " Arquivo" e selecione "Salvar Como " para abrir o "Salvar como" janela.
7

Tipo " vbReadTest1.vbs " no " File Name" caixa de texto e clique em " Salvar". Bloco de Notas irá criar um arquivo VBS e guardá-lo para o desktop.
8

Localize o arquivo na área de trabalho e clique duas vezes nele . O código VBS irá ler o arquivo de entrada e exibir seu conteúdo .