HMGforum.com

Code: Select all

      oShell := CreateObject( "Shell.Application" )
      IF NIL <> oShell
         oFolder := oShell:NameSpace( cPath )
         IF NIL <> oFolder
            cFile := UPPER( TRIM( cFile ) )
            oItems := oFolder:Items()
            iMax := oItems:Count
            FOR i := 1 TO iMax
               oItem := oItems:Item( i - 1 )
               IF !EMPTY( oItem )
                  cName := UPPER( TRIM( oItem:name ) )
                  IF cFile = cName
                     oVerbs := oItem:Verbs()
                     jMax := oVerbs:Count
                     FOR j := 0 TO jMax - 1
                        oVerb := oVerbs:Item( j )
                        cVerbName := oVerb:Name
                        OnDummy( cName, cVerbName )
                     NEXT
                  ENDIF
               ENDIF
            NEXT
            oFolder:destroy()
         ENDIF
         oShell:destroy()
      ENDIF
      // clean-up ActiveX
      oVerbs := NIL
      oFolder := NIL
      oShell := NIL