[VB6] Modificare la directory predefinita di un programma (inclusa l'unità)

[ciro78]

salve, ho necessità di cambiare la directory predefinita del programma. il guaio che mi dice che devo cambiare anche l'unità per poter fare una cosa del genere

siccome l'applicazione deve girare su usb come faccio ad

individuare l'unità della chiavetta
e settare come app.path la cartelle predefinita del programma??

[LMondi]

Ciao ciro78,
prova il seguente codice che dovrebbe individuare l'unità attiva (nel tuo caso 1 "rimovibile"),
poi fai il settaggio:

Private Sub Command1_Click()
    Dim sPath As String
    Dim dPath As String
    Dim fso As FileSystemObject
    Dim Drv As Drive

    Set fso = New FileSystemObject
    For Each Drv In fso.Drives
        ' Trova l'unità attiva:
        If Drv.DriveType = 1 And Drv.IsReady Then
            sPath = Drv.DriveLetter & ":\"
            Exit For
        End If
    Next
    Text1.Text = sPath

End Sub
    
    '0 "sconosciuta"
    '1 "rimovibile"
    '2 "fissa"
    '3 "di rete"
    '4 "CD-ROM"
    '5 "disco RAM"

[ciro78]

Dim fso As FileSystemObject

non lo riconosce

devo inserire qualche riferimento??


poi se mi dai una spiegatina al codice

[LMondi]

Si deve attivare il Riferimento a Microsoft Scripting RunTime; il codice è semplice, verifica le unità attive, se trova quella indicata : If Drv.DriveType = 1 And Drv.IsReady Then dà il Path
Ho ipotizzato 1 "rimovibile" che dovrebbe fare il caso tuo; però fai delle prove cambiando il numero.

[ciro78]

sembra funzionare grazie 1000