venerdì 23 febbraio 2018

vbs tutte le informazioni su un file - caratteristiche avanzate

'

' vbs tutte le informazioni su un file - caratteristiche avanzate

option explicit

'

' di un file formato jpg si ottengono, di norma,  le seguenti informazioni:

'

'0         Nome: 07060002.JPG

'1         Dimensione: 583 KB

'2         Tipo: Immagine JPEG

'3         Data ultima modifica: 05/09/2007 15.11

'4         Data creazione: 22/01/2014 16.28

'5         Data ultimo accesso: 07/01/2016 15.54

'6         Attributi: A

'7         Stato: In linea

'8         Proprietario: ...

'13        Pagine: 1

'24        Modello fotocamera: ...                     ' se il file è stato generato da una fotocamera.

'25        Data immagine scattata: 06/07/2007 0.00     ' se il file è stato generato da una fotocamera.

'26        Formato: 2048 x 1376

'

'  utilizzando queste informazioni è possibile creare un programma

'  che evidenzi quali files sono duplicati.

'

dim FolderPath, objShell, objFolder, i, strFileName

dim s

'

dim qualecartella

qualecartella = "C:\lavori-info-file\"

'

FolderPath = qualecartella

 

 

Dim TitoliIntestazione(300)

Set objShell = CreateObject("Shell.Application")

Set objFolder = objShell.Namespace(FolderPath)

 

' crea elenco titoli informazioni

For i = 0 to 300

    TitoliIntestazione(i) = objFolder.GetDetailsOf(objFolder.Items, i)

Next

'

For Each strFileName in objFolder.Items

    s = ""

    call ScriviFileJollyAppend(qualecartella & "info.txt", s)

    For i = 0 to 300

       s =  i & vbtab & TitoliIntestazione(i) & ": " & objFolder.GetDetailsOf(strFileName, i)

       if len(trim(TitoliIntestazione(i))) > 0 and len(trim(objFolder.GetDetailsOf(strFileName, i))) > 0 then

          call ScriviFileJollyAppend("C:\lavori-info-file\info.txt", s)

       end if

    Next

Next

'

' ===========

'

Sub ScriviFileJollyAppend(NomeArchivio, cosascrivere)

'

Dim fso, rifefile

Set fso = CreateObject("Scripting.FileSystemObject")

If (fso.FileExists(NomeArchivio)) Then

      'msg = NomeArchivio & " esiste!"

       Set rifefile = fso.OpenTextFile(NomeArchivio, 8)

   Else

      'msg = NomeArchivio & " NON esiste!!!"

       Set rifefile = fso.CreateTextFile(NomeArchivio, True)

   End If

rifefile.WriteLine (cosascrivere)

rifefile.Close

Set rifefile = Nothing

End Sub

'

' =========

'

Nessun commento:

Posta un commento