FOR/NEXT into FOR EACH

[Jimmy]

hi,

i like to change FOR / NEXT into FOR EACH

Code: Select all  Expand view

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 ) 

who can help me please

[Antonio Linares]

Dear Jimmy,

It seems as you can't. Where do you get the 333 from ?

[Jimmy]

hi Antonio,

Where do you get the 333 from ?

i have found "somewhere" that Explorer can show uo to 329 Property of File ,,, so i use 333

---

i have ask ChatGPT for CODE (using Keywords) and got

Code: Select all  Expand view

* 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

after re-write OOP Syntax i try to run and got Error "Count" ... but i saw FOR EACH

---

so it was not my Idea which i try to get run