[VB6] Selezione di file immagine con percorso differente

[stejano]

ho creato un programma di cui posto qui il codice...è da finire..per cui ci sono un po' di imprecisioni....che si potrbbero migliorare....va bè per ora cmq va ....
lo posto

Option Explicit

Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Case 0
File1.Pattern = "*.*"
Case 1
File1.Pattern = "*.jpg"
Case 2
File1.Pattern = "*.bmp"
Case 3
File1.Pattern = "*.jpeg"
End Select
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
MsgBox "created by stejano"
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive


End Sub

Private Sub File1_Click()
On Error GoTo errorecaricamento
Dim prova As Picture
Set prova = LoadPicture(File1.FileName) 'Prova è una variabile "Picture"
Picture1.Picture = prova
Picture2.PaintPicture Picture1.Picture, 0, 0, Picture2.Width, Picture2.Height

SavePicture Picture2.Image, "C:\Out.bmp"
Text1.Text = File1.FileName
Exit Sub

errorecaricamento:
MsgBox "errore file caricato errato"
Exit Sub



End Sub

Private Sub Form_Load()
Combo1.AddItem "tutti i file (*.*)"
Combo1.AddItem "file jpg (*.jpg)"
Combo1.AddItem "file bmp (*.bmp)"
Combo1.AddItem "file jpeg (*.jpeg)"
Combo1.ListIndex = 0




End Sub









Private Sub Option1_Click()
If Option1.Value = True Then
Picture2.Width = 1175
Picture2.Height = 2775


End If
End Sub





ok il problema è che apre solo i file(le immagini) che sono nella cartella in cui è il programma...se provo a fare una ricerca nelle altre cartelle e apro un file in un altra cartella mi dà il segnale di errore.....come mai???
grazie!

[mgmg]

Hai controllato che File1.FileName contenga il percorso completo e non solo il nome dell'immagine?

Ciao

[oregon]

Devi usare sia il nome del file che il percorso .. quindi

Set prova = LoadPicture(File1.Path & "\" & File1.FileName)

[stejano]

grazie...funziona....troppo bello!!!!!