Ciao melandro,
da tempo non uso più l' "Installer di vb6" oramai obsoleto, ciò nonostante continuo ad utilizzare un metodo per copiare nella cartella di destinazione del prog. i files di esempio, immagini ed altri files che ritengo necessari.
Il metodo è semplice, basta pensarci un attimo ...
In sostanza quando compili il CD per l'installazione in una cartella a sé stante (magari la puoi chiamare "SupportFT") avrai cura di inserire i files che devi successivamente copiare nella Dir del programma. Quando avvii per la prima volta il prog. verrà eseguita una ricerca per controllare se la cartella contenente i predetti files è presente, se non c'é verrà effettuata una copia, ed il problema è risolto ...
Come vedi per fare l'operazione devi utilizzare FileSystemObject, da attivare nei riferimenti "Microsoft Scripting Runtime".codice:' ..... ' Controlla che la cartella DATIft esista, altrimenti al primo avvio la crea: Set FSO = New FileSystemObject If (FSO.FolderExists(App.Path & "\" & "DATIft")) = False Then ' Cerca la lettera del CD_ROM o nell'Unità removibile attivo: For Each Drv In FSO.Drives ' CDRom 4 o PenDrive 1: If Drv.DriveType = 4 And Drv.IsReady Or _ Drv.DriveType = 1 And Drv.IsReady Then sPath = Drv.DriveLetter & ":\" Exit For End If Next SourceFile = sPath & "SupportFT\DATIft" DestinFile = App.Path & "\" & "DATIft" FSO.CopyFolder SourceFile, (App.Path & "\" & "DATIft") MsgBox "La cartella DATIft e le relative sottocartelle, sono state" & vbCr _ & "copiate con successo in " & DestinFile & ".", vbInformation, "....." End If ErrHandlerDvr: If Err.Number <> 0 Then MsgBox "Errore durante il tentativo di copia della cartella DATIft: " & vbCr & "Numero errore: " & Err.Number & vbCr & "Descrizione: " & Err.Description, vbCritical, "...." Err.Clear End If

Rispondi quotando