Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Dijital Arşiv Programı

Mehmet007
Mehmet007
Access Cevaplanmış Soruları
17
2678

Dijital Arşiv Programı

#13
lemoncher2
Destek Ekibi
lemoncher2
Bul
Destek
Adı Soyadı:
Konum: -
Ofis Versiyonu: -
Son Oturumu: 22/01/2023,00:30
Yorumları: 330
Konuları: 15
Kayıt Tarihi: 31/03/2020
Teşekkür Puanı: 90 
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.
Cevapla
#14
Mehmet007
Üye
Mehmet007
Bul
Üye
Adı Soyadı: Me.... Ka....
Yaşı: 46
Konum: -
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 15/11/2021,16:49
Yorumları: 29
Konuları: 5
Kayıt Tarihi: 31/12/2019
Teşekkür Puanı: 0
(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
Cevapla
#15
lemoncher2
Destek Ekibi
lemoncher2
Bul
Destek
Adı Soyadı:
Konum: -
Ofis Versiyonu: -
Son Oturumu: 22/01/2023,00:30
Yorumları: 330
Konuları: 15
Kayıt Tarihi: 31/03/2020
Teşekkür Puanı: 90
(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
Cevapla
#16
Mehmet007
Üye
Mehmet007
Bul
Üye
Adı Soyadı: Me.... Ka....
Yaşı: 46
Konum: -
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 15/11/2021,16:49
Yorumları: 29
Konuları: 5
Kayıt Tarihi: 31/12/2019
Teşekkür Puanı: 0
(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
Cevapla
#17
lemoncher2
Destek Ekibi
lemoncher2
Bul
Destek
Adı Soyadı:
Konum: -
Ofis Versiyonu: -
Son Oturumu: 22/01/2023,00:30
Yorumları: 330
Konuları: 15
Kayıt Tarihi: 31/03/2020
Teşekkür Puanı: 90
(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
Cevapla
#18
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,00:30
Yorumları: 8.401
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.037 
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task