Filtering by extended file properties 1

[nonya88]

Hello,

I have a task that requires searching through four directories on a server, and deleting certain specified files using VBScript. These files to be deleted are *.tif files (faxes) and these *.tif files must be created by Windows NT Fax Server. The problem that I'm running into involves this second condition; filtering by the creation software (in this case Windows NT Fax Server.)

I've attemped to incorporate WMI's CIM_DataFile and CIM_LogicalFile properties, but recognition of the creation software isn't one of their properties. I'm not aware of any FileSystemObject property that would allow me to see this creation software either.

Any help or suggestions are greatly appreciated!

Nonya88

 

[Geates]

Conceptually, I would open a .tif file and read the header data to identify any program signatures. Unfortunately, I have no code examples because "conceptually" can't be compiled.

-Geates

 

[strongm]

Something like:

[blue]Const SH_COLUMNHEADER_PROGRAM = 35

Public Function GetCreateProgram(strFilePath)
    Dim objFso 
    Dim objShell 
    Dim objFolder 

    Set objFso = CreateObject("Scripting.FileSystemObject")
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.Namespace(objFso.GetParentFolderName(strFilePath))
    GetCreateProgram = objFolder.GetDetailsOf(objFolder.ParseName(objFso.GetFileName(strFilePath)), SH_COLUMNHEADER_PROGRAM)
End Function[/blue]

 

[nonya88]

Thanks Geates and strongm!

I will test this script and check if it meets my needs.

Thanks again!

nonya88