Çözüldü DOSYA ADINI VE DOSYA YOLUNU LABELE YAZ

[zulfuernek]

butona tıklayınca dosya yol ve adı labellere yazsın..

userform2 de resim ekle butonuna basınca pictureye resim geliyor dosya yolu ve dosya adı labele

 

[zulfuernek]

bi kısmını çözdüm ancak dosya adı labele gelmiyor

 

[zulfuernek]

çözüm yok mu

 

[PLİNT]

Merhaba
Dosyanızı görme imkanım yok ama istediğiniz şöyle bir şeymi?

 Image1.Picture = LoadPicture(RESİM)
LabelX.Caption = Split(Dir(RESİM), ".")(0)

Veya

  Image1.Picture = LoadPicture(RESİM)
 Set a = CreateObject("scripting.filesystemobject")
 LabelX.Caption = a.getbasename(RESİM)

 

[zulfuernek]

@PLİNT hocam botun üzerindeki kod şu şekilde



Dim fPath As String
Dim fdgPicker As FileDialog
fPath = ThisWorkbook.Path & "\Pics"
ChDrive fPath
Set fdgPicker = Application.FileDialog(msoFileDialogFilePicker)
With fdgPicker
.InitialView = msoFileDialogViewThumbnail
.Filters.Add "Graphics Files (*.bmp; *.gif; *.jpg; *.jpeg)", "*.bmp;*.gif;*.jpg;*.jpeg"
.FilterIndex = 1
If .Show = -1 Then

Image2.Picture = LoadPicture(.SelectedItems(1))

resimadresi = fdgPicker.InitialFileName
resim_adi = fdgPicker.SelectedItems(1)

Label2.Caption = resim_adi
Label9.Caption = resimadresi


'MsgBox "Resim seçildi.", vbInformation, " Bilgi"
Else
MsgBox "Resim seçmediniz.", vbInformation, " Uyarı"
End If
End With


ancak bu koda herhangi bir dosyadan image nesnesine resim seçebiliyorum ve labellere gerekli bilgiler de geliyor ama bir eksiği var labelin bir tanesine resim adı dediğimiz label9 a açtığım resim dosyasının bulunduğu dosya adı geliyor label 2 ye ise sadece o JPEG dosyasına ilişkin dosya adı yazacağı erde tüm dosya yolu yazıyor

oysa label 2 ye dosyanın sadece adı
label9 a ise dosyanın bulunduğu dosya yolu gelsin

http://dosya.co/ygtshjvu9vkf/22222.xlsm.html userform 2 de

 

[PLİNT]

Denermisiniz?
http://dosya.co/4ygy3vcnnhuc/22222.xlsm.html

 

[zulfuernek]

@PLİNT hocam ben size ne diyeyim yaaa. mükemmelleri yapıyorsunuz . çok teşekkür ederim. hocam resimlerin altındaki textboxa yeni isim yzıp resim ismini değiştirmemiz mümkünmü. seçili olan resmin

 

[PLİNT]

Aşağıdaki uzantıları artırabilirsiniz

Private Sub CommandButton1_Click()
Dim ad As String, yad As String
Dim uzantı(), yol As String, a As Long, b
If TextBox2 = "" Then Exit Sub
Set b = CreateObject("scripting.filesystemobject")
yol = Label8.Caption
uzantı = Array(".bmp", ".gif", ".jpg", ".jpeg")
For a = 0 To UBound(uzantı)
If b.FileExists(yol & Label1.Caption & uzantı(a)) = True Then
Name yol & Label1.Caption & uzantı(a) As yol & TextBox2.Text & uzantı(a)
End If
Next
Label1.Caption = TextBox2.Text
TextBox2 = ""
End Sub

"Commandbutton4" için

Private Sub CommandButton4_Click()
Dim ad As String, yad As String
Dim uzantı(), yol As String, a As Long, b
If TextBox3 = "" Then Exit Sub
Set b = CreateObject("scripting.filesystemobject")
yol = Label9.Caption
uzantı = Array(".bmp", ".gif", ".jpg", ".jpeg")
For a = 0 To UBound(uzantı)
If b.FileExists(yol & Label2.Caption & uzantı(a)) = True Then
Name yol & Label2.Caption & uzantı(a) As yol & TextBox3.Text & uzantı(a)
End If
Next
Label2.Caption = TextBox3.Text
TextBox3 = ""
End Sub

 

[zulfuernek]

@PLİNT alkış diyorum başkada bir şey demiyorum hocam hocam dosya bitti sayılır.

size bir konuda bilgi sorucam. mesela ben resimleri dosyadan seçtim ilgili hücrelerede dosya yollarını yazdı diyelim. sorun yok buraya kadar. (tabi çözebilirsek ) peki ben bu dosyaları farklı bilgisayara taşırsam sorun yaşamam değilmi program resimleri açmada sorrun yaşamaz değilmi. dosya yllarını kaydettiği için ?