GetVolumeInformation

[almax]

Buongiorno a tutti
in questa parte di codice (relativo al recuper del numero di serie dell'HDD

Private Sub Command1_Click()
directory = ("" & App.Path & "") + "zanna.x86" 'directory in cui si trova + zanna.x86
passw = Label1.Caption - 86 'prende il serial sottrae 86
passw = Left(passw, 9) 'poi prende in considerazione solo le prime 9 cifre partendo da sinistra
passw = passw * 8686 'moltiplica poi x 8686
passw = Right(passw, 6) 'considera solo le prime 6 cifre partendo da destra
If Text1.Text = passw Then 'se il text1 è = alla password corretta...
x = Shell(directory, 1) 'esegui il file zanna.x86...
Else 'altrimenti...
MsgBox "Errore" 'messaggio d'errore
Unload Me 'esce
End If
End Sub

la seconda riga come deve essere modificata per specificare che il mio "zanna.x86" si trova nella cartella denominata "cartella" su un CD?
grazie
max

[DeBe99]

Basta che al posto di App.Path metti una stringa con la directory dove risiede il file.

[almax]

. lo avevo fatto ma non andava. Forse sbagliavo qualcosa, riprovo.
Ne approfitto per chiedere: Il programma in VB dovrebbe stare su un CD, partire all'inserimento e controllare il S.n. dell'HDD e poi far partire il file "zanna.x86" che sta sempre sul CD, si può fare??.
garzie
max