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 ...
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
Come vedi per fare l'operazione devi utilizzare FileSystemObject, da attivare nei riferimenti "Microsoft Scripting Runtime".
Rispondi quotando
