vb6 ile resim upload yükleme

[shasha]

Yukarıdaki gibi evrak ekle formu var.

Evrak türü ve açıklama kısımlarını otomatik olarak girişini yaptırabiliyorum fakat evrakın yolunun belirlendiği "Gözat..." ile dosya yolunu belirleyemiyorum
bununla ilgili olarak yardımlarınızı bekliyorum...

"Gözat..." a tıkladığımda , yolu seçmemi istiyor otomatik olarak oraya giriş yaptırıp yolu seçiyor fakat stabil çalışmıyor , alternatif çözüm önerilerinizi bekliyorum...

 

[halit3]

Bu kodu bir dene

Private Sub Command1_Click()


Dim objDialog
Set objDialog = CreateObject("MSComDlg.CommonDialog")
objDialog.Flags = 4

objDialog.Filter = "DosyalarExcel Files (.*)|*.*"
objDialog.FilterIndex = 1
'objDialog.CancelError = False
'objDialog.InitialDir = App.Path
objDialog.InitDir = App.Path
objDialog.ShowOpen

If Len(objDialog.FileName) = 0 Then
MsgBox "Dosya seçmediniz.", vbInformation + vbCritical
Else
MsgBox objDialog.FileName
End If
Set objDialog = Nothing

End Sub

 

[shasha]

Bu kodu bir dene

Private Sub Command1_Click()


Dim objDialog
Set objDialog = CreateObject("MSComDlg.CommonDialog")
objDialog.Flags = 4

objDialog.Filter = "DosyalarExcel Files (.*)|*.*"
objDialog.FilterIndex = 1
'objDialog.CancelError = False
'objDialog.InitialDir = App.Path
objDialog.InitDir = App.Path
objDialog.ShowOpen

If Len(objDialog.FileName) = 0 Then
MsgBox "Dosya seçmediniz.", vbInformation + vbCritical
Else
MsgBox objDialog.FileName
End If
Set objDialog = Nothing

End Sub

cevabınız için teşekkür ederim benim sorunum şu, gözat a tıklatmadan yolu seçmek , yolu ben otomatik list1.list(a) olarak getirteceğim...

şunuda denedim gözata tab ile getirtirip enterlatarak dialog kutusu gelip oradaki yere list1.list(0) ı yazdırıp enterla yolu seçtiriyorum fakat sağlıklı olmuyor...