Sorunuz yeni konu olarak eklenmiştir.

Site Kuralları 1c) Birden fazla soruyu aynı konuda sormayınız. Her soru için farklı başlıklı yeni konu açınız.

Klasör Aç butonunun tıklandığında olayına

On Error GoTo HataBul

    MkDir "D:\EVRAK TAKİP\DEPO\" & Replace(Me.sayı, "/", "")

    MsgBox ("D:\EVRAK TAKİP\DEPO\" & " dizininde " & Replace(Me.sayı, "/", "") & " isminde klasör oluşturulmuştur")

HataBul:

If Err.Number = 75 Then

    MsgBox ("bu isimde klasör mevcut")

End If

Klasöre Git butonunun tıklandığında olayına;

Shell "C:\WINDOWS\explorer.exe """ & "D:\EVRAK TAKİP\DEPO\" & Me.sayı & "", vbNormalFocus

kodlarını ekleyiniz.