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