satırdaki isimlerde otomatik klasör açma

(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]

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...