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
Rispondi quotando
