Aiuto sto perdendo il sonno per questo:
Ho fatto un programmino diciamo un Catalogo che gira
da cd rom,tutti i dati sono letti da file di testo ,
cliccando su un Item della list box tramite il listindex
carico un immagine in una picture box,per fare questo uso CURDIR
faccio un esempio:

'Carico la listbox da un file .txt, omesso

Private Sub List4_Click() ' click su un Item Listbox
Call catalogo(List4.ListIndex) 'chiamo la Function
end sub

Public Function catalogo(Indice As Integer)
Select Case Indice
Case Is = Indice
percorso= CurDir & "catalogo\stilista\" & Indice + 1
Imgcaricate.Picture = LoadPicture(percorso & Indice + 1 & ".jpg")
end function

fin qui tutto Ok

in una textbox mi metto il percorso relativo all' item selezionato
non serve ma lo metto cosi visualizzo a video la dir se e' esatta:

text1.text = percorso

ora
con un bottone apro il form2
------------------------------------------
Private Sub Cmd_Click()
Frm2.Show
End Sub

-------------------------------------------------
nel form2 costruisco un percorso per un file che devo copiare
in un'altra directory:
-----------------------------------------------------

'nel form2:
Private Sub Form_Load()
dim origine as string
origine=form1.text1.text
Dim nome_path As String
File1.Path = origine ' la path del file da copiare
nome_path = File1.Path
Dim fs, f, f1, fc, s, StrFileName
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(nome_path)
Set fc = f.Files
For Each f1 In fc
On Error Resume Next
StrFileName = f1.Name 'nome del file
Next

'cosi' ho il percorso esatto del file da copiare nella dir ce ne' uno solo.

Text2.Text = origine & "\" & StrFileName 'metto in text2 il file origine

End Sub

' apro la comommondialog e metto in text1 la destinazione del file

Private Sub Command2_Click()
On Error GoTo GestoreErrori
With CommonDialog1
.Flags = cdlOFNOverwritePrompt Or cdlOFNHideReadOnly
.ShowSave
Text1.Text = .FileName
End With
Exit Sub
GestoreErrori:
If Err.Number = 32755 Then Exit Sub 'Pulsante Annulla.
End Sub


' effetuo il filecopy

Private Sub Command3_Click()
FileCopy Text2.Text, Text1.Text
End Sub

Private Sub Command4_Click()
unload me
End Sub


fin qui tutto bene ,il problema e' che quando chiudo il form2 e ritorno al form uno dove c'e' il catalogo ,la path sia delle IMg
che della List box non e' piu' corretta e clicando su un item della listbox mi da errore Path not found o non mi visualizza le immagini nella picture box.
Spero di essere stato chiaro ,sono sicuro che e' una cavolata ma so 2 notti che provo,non cela faccio +
e ringrazio anticipatamente chi puo' aiutarmi
STO SCLERANDO
CIAO a tutti