satırdaki isimlerde otomatik klasör açma

1 2 3 4
07/12/2016, 12:31

donepezil

(13/09/2010, 12:48)ogulcan92 yazdı: Sn:manyetix
Butona çift işlem yaptırmak için aşağıdaki kodları kullanabilirsiniz.
Not:Formun Geçerli Olduğunda çalışan kodları siliniz.

Private Sub Form_Load()
Komut13.Caption = "Klasör Oluştur"
End Sub

Private Sub Komut13_Click()
On Error Resume Next
If Komut13.Caption = "Klasör Oluştur" Then
MkDir CurrentProject.Path & "\" & Me.il
MkDir CurrentProject.Path & "\" & Me.il & "\" & Me.ilçe
Komut13.Caption = "Klasör Aç veya Resim Ekle"
End If
If Komut13.Caption = "Klasör Aç veya Resim Ekle" Then
OpenFile CurrentProject.Path & "\" & Me.il & "\" & Me.ilçe
Komut13.Caption = "Klasör Oluştur"
End If
End Sub

Sn ogulcan92 kodunuzu ben ekledim butona. Hatta bayiler için de klasör açmasını ekledim Konu sahibi bir daha cevap vermemiş ama son mesajdan 6 yıl sonra ben bişeyler yazayım ve konu üste çıksın.
Gezinirken gördüm ve oldukça faydalı bir konu olmuş. Özellikle resimlerle ilgili arşiv tutmak isteyenlerin çok işine yarayabilir. Hele bunu yine forumda bulunan klasöre resim getirip kaydeden örneklerle birleştirirsek tadından yenmez
[attachment=26016]
05/01/2017, 00:20

donepezil

Sanıyorum yine en son ben yazmışım
Bir önceki mesajda bahsettiğim örneği sn. mehmetdemiral hocamızın bir uygulamasında düzenleyerek şurada paylaştım. Hem formdaki veriye göre klasör açıyor, hem de o klasöre fotoyu getirip yapıştırıyor.

Belki birisinin işine yarar.

İyi forumlar...
1 2 3 4