Ho problemi con l'utilizzo dell'ocx ProgressBar. Dovrei associare il controllo alla fase di salvataggio di un file delle dimensioni superiori alla propietà "Max è uguale a 32.767". Ho provato, ma invano potreste aiutarmi? Posto la frazione di codice riguardante la ProgressBar:
codice:
FolV = Fso.GetFolder("D:\Elaborazioni\FEF11\Dati").Size 'determina la dimensione del file
NumFile = (FolV / 1000) 'Kbyte
        NumFile2 = (NumFile * 100 / 32767)
    For i = 0 To NumFile2
        
        'Copia la cartella Dati nella Directory in base a quanto inserito in ValoreDir:
        Fso.CopyFolder "D:\Elaborazioni\FEF11\Dati", ValoreDir, True
        
        ProgressBar1.Value = ProgressBar1.Value + (100 / NumFile2 - 1)
     Next i
        ProgressBar1.Value = 0
il codice sopra riportato ha un'esecuzione anomala, in sostanza non funziona!
Sarà che non ho mai usato questo controllo (e che evidentemente è di facile utilizzo ??!!) ma su tre libri di testo consultati, tra cui anche F. Balena, non vi sono sufficienti dettagli.
Grazie per l'aiuto.