MkDir CurrentProject.Path & "\" & Me.klasor_adi & "-" & Me.klasor_yil & "-" & Me.dosya_adi & "-" & Me.dosya_yil
MsgBox "Başarılı.", vbDefaultButton1 + vbInformation, "BİLGİ"
Bu kod ile klasör oluşturabilirsiniz. Herhangi bir Buton oluşturup "Tıklandığında" olayına bunu yaptırınız.
(18/08/2021, 20:31)lemoncher2 yazdı: [ -> ]MkDir CurrentProject.Path & "\" & Me.klasor_adi & "-" & Me.klasor_yil & "-" & Me.dosya_adi & "-" & Me.dosya_yil
MsgBox "Başarılı.", vbDefaultButton1 + vbInformation, "BİLGİ"
Bu kod ile klasör oluşturabilirsiniz. Herhangi bir Buton oluşturup "Tıklandığında" olayına bunu yaptırınız.
Teşekkür ederim. Bu kod çok işime yaradı.
Private Sub klasor_adi_AfterUpdate()
MkDir CurrentProject.Path & "\" & Me.klasor_adi & "-" & Me.klasor_yil
MsgBox "Başarılı.", vbDefaultButton1 + vbInformation, "BİLGİ"
End Sub
Private Sub dosya_adi_AfterUpdate()
MkDir CurrentProject.Path & "\" & Me.dosya_adi & "-" & Me.dosya_yil
MsgBox "Başarılı.", vbDefaultButton1 + vbInformation, "BİLGİ"
End Sub
Bu şekilde klasör oluşturmak istiyorum. Fakat dosya_adi klasörünü klasor_adi klasörünün içine nasıl açtırabillirim acaba
(19/08/2021, 11:49)Mehmet007 yazdı: [ -> ] (18/08/2021, 20:31)lemoncher2 yazdı: [ -> ]MkDir CurrentProject.Path & "\" & Me.klasor_adi & "-" & Me.klasor_yil & "-" & Me.dosya_adi & "-" & Me.dosya_yil
MsgBox "Başarılı.", vbDefaultButton1 + vbInformation, "BİLGİ"
Bu kod ile klasör oluşturabilirsiniz. Herhangi bir Buton oluşturup "Tıklandığında" olayına bunu yaptırınız.
Teşekkür ederim. Bu kod çok işime yaradı.
Private Sub klasor_adi_AfterUpdate()
MkDir CurrentProject.Path & "\" & Me.klasor_adi & "-" & Me.klasor_yil
MsgBox "Başarılı.", vbDefaultButton1 + vbInformation, "BİLGİ"
End Sub
Private Sub dosya_adi_AfterUpdate()
MkDir CurrentProject.Path & "\" & Me.dosya_adi & "-" & Me.dosya_yil
MsgBox "Başarılı.", vbDefaultButton1 + vbInformation, "BİLGİ"
End Sub
Bu şekilde klasör oluşturmak istiyorum. Fakat dosya_adi klasörünü klasor_adi klasörünün içine nasıl açtırabillirim acaba
MkDir CurrentProject.Path & "\" & Me.klasor_adi & "-" & Me.klasor_yil & "\" & Me.dosya_adi
MsgBox "Başarılı.", vbDefaultButton1 + vbInformation, "BİLGİ"
Şeklinde denermisiniz
(19/08/2021, 12:34)lemoncher2 yazdı: [ -> ] (19/08/2021, 11:49)Mehmet007 yazdı: [ -> ] (18/08/2021, 20:31)lemoncher2 yazdı: [ -> ]MkDir CurrentProject.Path & "\" & Me.klasor_adi & "-" & Me.klasor_yil & "-" & Me.dosya_adi & "-" & Me.dosya_yil
MsgBox "Başarılı.", vbDefaultButton1 + vbInformation, "BİLGİ"
Bu kod ile klasör oluşturabilirsiniz. Herhangi bir Buton oluşturup "Tıklandığında" olayına bunu yaptırınız.
Teşekkür ederim. Bu kod çok işime yaradı.
Private Sub klasor_adi_AfterUpdate()
MkDir CurrentProject.Path & "\" & Me.klasor_adi & "-" & Me.klasor_yil
MsgBox "Başarılı.", vbDefaultButton1 + vbInformation, "BİLGİ"
End Sub
Private Sub dosya_adi_AfterUpdate()
MkDir CurrentProject.Path & "\" & Me.dosya_adi & "-" & Me.dosya_yil
MsgBox "Başarılı.", vbDefaultButton1 + vbInformation, "BİLGİ"
End Sub
Bu şekilde klasör oluşturmak istiyorum. Fakat dosya_adi klasörünü klasor_adi klasörünün içine nasıl açtırabillirim acaba
MkDir CurrentProject.Path & "\" & Me.klasor_adi & "-" & Me.klasor_yil & "\" & Me.dosya_adi
MsgBox "Başarılı.", vbDefaultButton1 + vbInformation, "BİLGİ"
Şeklinde denermisiniz
Maalesef olmadı, hata verdi
(19/08/2021, 15:42)Mehmet007 yazdı: [ -> ] (19/08/2021, 12:34)lemoncher2 yazdı: [ -> ] (19/08/2021, 11:49)Mehmet007 yazdı: [ -> ] (18/08/2021, 20:31)lemoncher2 yazdı: [ -> ]MkDir CurrentProject.Path & "\" & Me.klasor_adi & "-" & Me.klasor_yil & "-" & Me.dosya_adi & "-" & Me.dosya_yil
MsgBox "Başarılı.", vbDefaultButton1 + vbInformation, "BİLGİ"
Bu kod ile klasör oluşturabilirsiniz. Herhangi bir Buton oluşturup "Tıklandığında" olayına bunu yaptırınız.
Teşekkür ederim. Bu kod çok işime yaradı.
Private Sub klasor_adi_AfterUpdate()
MkDir CurrentProject.Path & "\" & Me.klasor_adi & "-" & Me.klasor_yil
MsgBox "Başarılı.", vbDefaultButton1 + vbInformation, "BİLGİ"
End Sub
Private Sub dosya_adi_AfterUpdate()
MkDir CurrentProject.Path & "\" & Me.dosya_adi & "-" & Me.dosya_yil
MsgBox "Başarılı.", vbDefaultButton1 + vbInformation, "BİLGİ"
End Sub
Bu şekilde klasör oluşturmak istiyorum. Fakat dosya_adi klasörünü klasor_adi klasörünün içine nasıl açtırabillirim acaba
MkDir CurrentProject.Path & "\" & Me.klasor_adi & "-" & Me.klasor_yil & "\" & Me.dosya_adi
MsgBox "Başarılı.", vbDefaultButton1 + vbInformation, "BİLGİ"
Şeklinde denermisiniz
Maalesef olmadı, hata verdi
MkDir CurrentProject.Path & "\" & Me.klasor_adi & "-" & Me.klasor_yil
MkDir CurrentProject.Path & "\" & Me.klasor_adi & "-" & Me.klasor_yil & "\" & Me.dosya_adi
MsgBox "Başarılı.", vbDefaultButton1 + vbInformation, "BİLGİ"
Bu şekilde olacaktır
Dim TasinacakYer As String
Dim KlasorDz As Variant
TasinacakYer = "c:\xK\DOSYALAR"
KlasorDz = Split(TasinacakYer, "\")
Yol = ""
For Each Item In KlasorDz
Yol = Yol & "\" & Item
If Dir(Mid(Yol, 2), vbDirectory) = "" Then MkDir Mid(Yol, 2)
Next Item
'Klasör oluşturma____________________________Bitti
Taşınacak yer eğer yoksa oluşturur
Dilerim işinize yarar