Newsgroup: it.comp.lang.visual-basic
Titolo: Progressbar per copia file

Come posso fare
1° copiare uno o più file in una directory
2° fare in modo che una progressbar mi indichi la percentuale copiata
grazie

2° fare in modo che una progressbar mi indichi la percentuale copiata
Se non erro c'è un esempio sul Sito Comune di questo NG (v. firma).
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

2° fare in modo che una progressbar mi indichi la percentuale copiata
leggi tutti i file da copiare e usando la funzione filelen
MySize = FileLen(NomeFile)
ti calcoli la somma delle lunghezze di tutti i files.
Imposti il max della progress bar alla somma calcolata e, durante la copia
dei file aggiorni la proprieta' value di tanti byte quanti sono stati
copiati.
Spero di essere stato chiaro.
Ciao Fabrizio

2° fare in modo che una progressbar mi indichi la percentuale copiata
Puoi usare la dialog standard di windows (quella della copia files di
explorer).
Si fa con la seguente ape non documentata:
(giocaci un po' e salva spesso - leggi GPF frequenti se non usata
correttamente)
Se hai qualche problema avverti, ora non ho nessun esempio sottomano.
P.s.: non ho trovato l'esempio che propone Moreno sul sito comune (d'altra
parte trovare qualcosa li sta diventando un'impresa), ma credo si rifaccia
anch'esso a quest'ape
Ciao
'---------fFunc
Public Const FO_MOVE = &H1
Public Const FO_COPY = &H2
Public Const FO_DELETE = &H3
Public Const FO_RENAME = &H4
'---------fFlags
Public Const FOF_MULTIDESTFILES = &H1
Public Const FOF_CONFIRMMOUSE = &H2
Public Const FOF_SILENT = &H4               '  don't create progress/report
Public Const FOF_RENAMEONCOLLISION = &H8
Public Const FOF_NOCONFIRMATION = &H10      '  Don't prompt the user.
Public Const FOF_WANTMAPPINGHANDLE = &H20   '  Fill in
SHFILEOPSTRUCT.hNameMappings
                                            '  Must be freed using
SHFreeNameMappings
Public Const FOF_ALLOWUNDO = &H40
Public Const FOF_FILESONLY = &H80           '  on *.*, do only files
Public Const FOF_SIMPLEPROGRESS = &H100     '  means don't show names of
files
Public Const FOF_NOCONFIRMMKDIR = &H200     '  don't confirm making any
needed dirs
Public Const PO_DELETE = &H13           '  printer is being deleted
Public Const PO_RENAME = &H14           '  printer is being renamed
Public Const PO_PORTCHANGE = &H20       '  port this printer connected to is
being changed
    '  if this id is set, the strings received by
    '  the copyhook are a doubly-null terminated
    '  list of strings.  The first is the printer
    '  name and the second is the printer port.
Public Const PO_REN_PORT = &H34         '  PO_RENAME and PO_PORTCHANGE at
same time.
'  no POF_ flags currently defined
'  implicit parameters are:
'       if pFrom or pTo are unqualified names the current directories are
'       taken from the global current drive/directory settings managed
'       by Get/SetCurrentDrive/Directory
'
'       the global confirmation settings
Type SHFILEOPSTRUCT
        hwnd As Long
        wFunc As Long
        pFrom As String
        pTo As String
        fFlags As Integer
        fAnyOperationsAborted As Boolean  'Ritorna True se è si interrotto
l'operazione
        hNameMappings As Long             'Meglio non usarlo
        lpszProgressTitle As String       'only used if FOF_SIMPLEPROGRESS
                                          'Caption
End Type
Public shFileOp As SHFILEOPSTRUCT
Declare Function SHFileOperation Lib "shell32.dll" (lpFileOp As
SHFILEOPSTRUCT) As Long

Ti dirņ che non ci ho capito molto........