13/09/2010, 12:48 #17 Aktif Üye ogulcan92 Bul Aktif Üye Adı Soyadı: Yaşı: 60 Konum: İzmir Ofis Versiyonu: Ofis 2003 Son Oturumu: 07/08/2015,11:50 Yorumları: 1.159 Konuları: 154 Kayıt Tarihi: 06/05/2009 Teşekkür Puanı: 480 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 SubKodu SeçKodu Kopyala OĞULCAN & OLCAYTUĞ Oğulcan Excel Web Sitesi Excel İle Programlama Cevapla Cevapla