Inoffizielles deutsches Xbase-Forum

Code: Alles auswählen

//=========================================
FUNC Unzip(cZipFile, cDestFolder)
	LOCAL oShell, oZIP, oNameDest

   oShell    := CreateObject("Shell.Application")
   oZIP  := oShell:NameSpace(cZipFile)
   oNameDest := oShell:NameSpace(cDestFolder)
   oNameDest:CopyHere(oZIP:items(), 0x10)
   oShell:destroy()

RETURN NIL

Code: Alles auswählen

oShell          := CreateObject("Shell.Application")
oZipVerzeichnis := oShell:NameSpace(cZuZipendesVerzeichnis)
oZIP            := oShell:NameSpace(cZipArchiv)
oZIP:CopyHere(oZipVerzeichnis:items(), cHex)    // Ich hab hier cHex variabel gemacht, Marcus hatte da statisch für seine Bedürfnisse ein 0x10 drin stehen
oShell:destroy()

Code: Alles auswählen

PROCEDURE SearchDevice()
LOCAL cName, oItems
LOCAL i, iMax
LOCAL xParent

   nLevel := 1
   xParent := nLevel

   oShell := CreateObject( "shell.application" )
   IF NIL <> oShell
      oFolder := oShell:NameSpace( CSIDL_DRIVES )                     // 0x0011 // My Computer
      IF NIL <> oFolder
         oItems := oFolder:Items()
         iMax := oItems:Count
         FOR i := 1 TO iMax
            oFolderItem := oItems:Item( i - 1 )
            IF !EMPTY( oFolderItem )
               cName := UPPER( oFolderItem:name )
               IF cName = "DESKTOP"
                  LOOP
               ENDIF
               IF ASCAN( aFolder, { | e | e[ ID_Name ] = cName .AND. e[ ID_Level ] = nLevel } ) > 0
               ELSE
                  nElement ++

                  // "nur" die Tree Darstellung mit HMG "semi" OOP Syntax
                  IPHONE.Tree_1.AddItem( cName, nLevel, nElement )            // nLevel := 1
                  IPHONE.Tree_1.CARGO( nElement ) := { cName, nLevel + 1 } // next Level Action
                  IPHONE.Tree_1.NodeFlag( nElement ) := .T.
                  //  IPHONE.Tree_1.ImageIndex ( nElement ) := { IMAGE_FOLDER_UNCHECKED, IMAGE_FOLDER_UNCHECKED }
                  IPHONE.Tree_1.ImageIndex( nElement ) := IsRealDrive( oFolderItem )

                  // diese Array werden benütigt                  
                  AADD( aFolder, { oFolderItem, cName, nLevel + 1, xParent, nElement } )
                  AADD( aDevices, oFolderItem )

                  IF .NOT. oFolderItem:isFileSystem
                     AADD( aFileSys, i )
                  ENDIF
               ENDIF
            ENDIF
         NEXT
      ENDIF
   ENDIF
   
   // harbour HMG 
   DO EVENTS

RETURN

Code: Alles auswählen

PROCEDURE DoCopySingle( oDirFolder, cTarget, lMove )
LOCAL hGrid   := GetControlHandle( "Grid_1", "IPHONE" )
LOCAL oNewSH  := CreateObject( "Shell.Application" )
LOCAL oTarget := oNewSH:NameSpace( cTarget )
LOCAL xFlag   := FOF_SIMPLEPROGRESS
LOCAL aFiles  := {}
LOCAL oFile, cFile, xCount, nCount
LOCAL i, iMax, nSkip := 0
LOCAL nState  := hb_BitOr( LVIS_SELECTED, LVIS_FOCUSED )
LOCAL nMask   := hb_BitOr( LVIS_SELECTED, LVIS_FOCUSED )

   DEFAULT lMove TO .F.

   IPHONE.ProgressBar_1.Value := 0
   TBL_SETVALUE( ThisWindow.Handle, 0, 100 )

   iMax := oDirFolder:Count
   FOR i := 1 TO iMax

      IPHONE.ProgressBar_1.Value := CalcPos( i, iMax )
      TBL_SETVALUE( ThisWindow.Handle, CalcPos( i, iMax ), 100 )
      DO EVENTS

      // if Checkbox is marked
      IF IPHONE.Grid_1.CheckBoxItem( i ) = .T.

         // get Item Object
         oFile := oDirFolder:Item( i - 1 )

         IF lMove = .T.
            // move single Object file
            oTarget:MoveHere( oFile, xFlag )
         ELSE
            // copy single Object file
            oTarget:CopyHere( oFile, xFlag )
         ENDIF

         // wait until all files are written
         xCount := 0
         DO WHILE .T.
            // compare if file is written
            nCount := oTarget:items() :Count()
            IF nCount + nSkip >= i
               EXIT
            ENDIF
            hb_idleSleep( 0.1 )
            xCount ++
            IF xCount > 50
               EXIT
            ENDIF
         ENDDO

         // this Syntax give Error ?
         // IPHONE.Grid_1.CheckBoxItem( i ) = .F.
         // so use this Syntax
         SetProperty( "IPHONE", "Grid_1", "CheckBoxItem", i, .F. )

         // scroll GRID if need
         LISTVIEW_SETITEMSTATE( hGrid, i, nState, nMask )
         ListView_EnsureVisible( hGrid, i )
      ELSE
         // Skip un-maked
         nSkip ++
      ENDIF
   NEXT
   // clean up
   hb_idleSleep( 0.5 )
   IPHONE.ProgressBar_1.Value := 0
   TBL_SETVALUE( ThisWindow.Handle, 0, 100 )
   oTarget := NIL
   oNewSH := NIL
   
   // harbour HMG
   DO EVENTS

RETURN