Come trovare files txt vuoti in un folder ?

di
Dodo80
il
1 risposte
D
Dodo80
Pochi posts
Iscritto da
mag, 2010
Messaggi:
2

Come trovare files txt vuoti in un folder ?

Ciao a tutti,
vorrei far girare il file bat o vbs in modo da controllare all'interno di una cartella se esistono dei file txt vuoti ad esclusione di alcuni txt , ad esempio del file pippo.txt.
Questo poi dovrebbe inviare un'email indicando il file vuoto.

Per l'invio dell'email potrei usare clemail.exe , ma ora soffermiamoci su file vbs o bat.

per la scansione ho un vbs che mi elimina il file vuoto :

'prepara l'oggetto filesystem
Set objFS = CreateObject("Scripting.FileSystemObject")

'prepara il file da controllare
Set objFile = objFS.GetFile("C:\Documents and Settings\Desktop\Nuova cartella\FileDaControllare.txt")

' Se la dimensione del file e' zero allora cancellalo
If objFile.Size = 0 then objfile.delete

'Fine dello script
wsh.quit

ma invece di cancellarlo vorrei che mi indicasse i files txt vuoti senza cancellarli.

chi mi può dare una mano ?

1 Risposte

  • luky1964
    luky1964
    Utente Attivo
    Iscritto da
    nov, 2009
    Messaggi:
    215

    Re: Come trovare files txt vuoti in un folder ?

    Ciao.
    Quelle righe di codice le hai scritte tu o le hai trovate o ti sono state fornite ? (nel senso, conosci la sintassi del VBS ? ).
    Concettualmente, basterebbe che tu aprissi un file Sequenziale/testo in scrittura, es. con nome: "FileVuoti.Txt"
    ed ogni volta che trovi un file vuoto, invece di cancellarlo, scrivi una riga/record del file aperto, con il nome del file.
    Alla fine, ti troverai un file testo con elencati tutti i file vuoti...
    Io lavoro in VB6, non avrei problemi a farlo, anche il VBScript, ha la gestione dei file testo (apertura e scrittura).
    Pseudo codice:
    set fso = CreateObject(”Scripting.filesystemobject”)
    set FTesto = fso.CreateTextFile(“C:\FileVuoti.txt”, True)
    ' questa la scrivi al posto della riga .delete
    FTesto.WriteLine(objFile.name)
    FTesto.WriteBlanckLines(1) ‘ va a capo una volta
    ' alla fine del ciclo
    FTesto.close


    Saluti "toscani".
    Luciano.
Devi accedere o registrarti per scrivere nel forum
1 risposte