INFORMATICA > VBSCRIPT
AGGIUNGI TESTO IN FONDO FILE TXT
VBScript - Aggiungi testo in fondo ai files
Lo script qui sotto, aggiunge 4 righe di testo in fondo ai files TXT contenuti nella cartella c:\temp .
Sicuramente lo script qui sotto può essere ottimizzato, semplificato,... però posso assicurarvi che questo è funzionate e perchè l'ho testato/usato personalmente.
Set fso = CreateObject("Scripting.FileSystemObject")
'Punta alla cartella dove si trovano i files da modificare
Set folder = fso.GetFolder("C:\Temp")
'Crea una collezione dei files contenuti nella cartella.
Set files = folder.Files
For Each file in files
NomeFile = file.Path
Set objTS = fso.OpenTextFile(NomeFile, 8)
objTS.WriteLine "Riga1"
objTS.WriteLine "Riga2"
objTS.WriteLine "Riga3"
objTS.WriteLine "Riga4"
'Punta alla cartella dove si trovano i files da modificare
Set folder = fso.GetFolder("C:\Temp")
'Crea una collezione dei files contenuti nella cartella.
Set files = folder.Files
For Each file in files
NomeFile = file.Path
Set objTS = fso.OpenTextFile(NomeFile, 8)
objTS.WriteLine "Riga1"
objTS.WriteLine "Riga2"
objTS.WriteLine "Riga3"
objTS.WriteLine "Riga4"
Next
Per eseguire lo script basta semplicemente copiare il testo delle righe qui sopra (evidenziate in azzurro), incollarlo in un file (con Blocco note) e salvarlo con estensione .vbs , e poi doppio click
Se hai trovato utili questi appunti...