Newsgroup: it.comp.lang.visual-basic
Titolo: OCX che copia i file - Info

Ciao a tutti.
Vorre sapere se per copiare un file da una directory ad un'altra esiste un
OCX che mi mostri graficamente l' andamento della copia in corso. Dato che
devo copiare dei file da 300Mb o piu' vorrei sapere a che punto e' la copia.
La cosa si complica ulteriormente : i file sono su due computer diversi
connessi in rete utilizzando il Microsoft Networking ( uso percio' i nomi
\\nome-pc\label-condivisa\nomefile.ddd
Se esiste un OCX del genere mi farebbe molto comodo. Io e' da poco che
utilizzo il VB5 e non ho ancora letto tutte le varie documantazioni. Quindi
vorrei sapere solo se un controllo simile e' contenuto nel CD del VB5 oppure
bisogna farlo.
Vi ringrazio per l'attenzione.
-=[ Ninjam ]=-

Se esiste un OCX del genere mi farebbe molto comodo.
[...]


Prova a giocare un po' con quest'Ape non documentata:
Tira fuori la finestrella di copia in corso di windows.
Se hai problemi dimmelo, in questo momento non mi ricordo come si usa, ma č
abbastanza intuitiva.
'---------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

Grazie per l'interessamento..
-=[ Ninjam ]=-