FiveTech Support Forums

FUNCTION GetMetaData( cPath, cFilename )
LOCAL nItem, iMax := 333
LOCAL objShell := CreateObject( "Shell.Application" )

   objFolder := objShell:Namespace( cPath )
   objFolderItem := objFolder:ParseName( cFilename )
   FOR nItem := 1 TO iMax
      cFileInfo := objFolder:GetDetailsOf( objFolderItem, nItem )
      cHeaderInfo := objFolder:GetDetailsOf( objFolder:Items, nItem )
      IF !EMPTY( cHeaderInfo ) .AND. !EMPTY( cFileInfo )
         AADD( aRet, { STRZERO( nItem, 3 ),; 
                       TRIM( cHeaderInfo ),;
                       STRTRAN( TRIM( aData[ 2 ]  ), "?", "" ) } )
      ENDIF
   NEXT
   objShell := NIL

RETURN ACLONE( aRet )

* Create an instance of the Shell.Application object
oSA = CREATEOBJECT( "Shell.Application" )

* Get the current namespace
oNS = CREATEOBJECT( "Namespace" )
oDir = oSA.NameSpace( oNS )

* Set the directory path
cPath = "C:\Windows"
oDir = oSA.NameSpace( cPath )

* Set the file name
cFile = "test.txt"
oFile = oDir.ParseName( cFile )

* Get the number of properties
nCount = oDir.Count

* Iterate through the properties
FOR EACH oProp IN oDir
   * Get the property name
   cName = oDir.GetDetailsOf( oProp, 0 )
   ? cName + ": "

   * Get the property value
   cValue = oFile.GetDetailsOf( oProp, 0 )
   ? cValue
ENDFOR