Herkese merhabalar. türkçe klavyeye alısmaya çalışıyorum, yazmadığım türkçe harf olursa kusura bakmayın

problem konu baslığındanda anlasılacagı gibi vb kodu ile klasör ekleme ve eklenen Klasörü Silme. Butonu tıkladığımda uygulamamın bulunduğu yere resim klasörü ekleyecek, formu kapattığımda bu klasörü içeriği ile birlikte silecek.

arkadaşlar takıldım bir konu var,
işyerindeki ağ üzerinden paylaşıma açık klösör ve içinde excel, acces, vorld dosyalarımız var, bir başka kullanıcı tarafından bilerek yada bilmeyerek dosya siliniyor, benim istediğim paylaşıma açılan ana bilgisayar kullanıcıları dışındaki diğer ağ üzerindeki kulanıcılar sadece dosyayı açık kullanabilsin, üzerinde oynama değişiklik silme vs. işlemleri yapamasın bunu kısıtlayabilirmiyiz,
Yardımlarınızı bekliyorum,teşekkürler

iyi çalışmalar,

atölye kayıtlarının tutulduğu Excel dosyam var. atölyelerde yapılan işlere ait dosyalar ise D:\atölyeler klasöründe excel'teki sıra numarasına göre tutuluyor.

benim istediğim ve yapamadığım, köprü sütunundaki aç yazısına tıkladığımda bir nolu kayıt için d:\atölyeler\1\ , iki nolu kayıt için d:\atölyeler\2\ (diğerleri için de aynı) klasörünün açılması. her kayıt için manuel olarak köprü ekliyorum ama bunu otomatik olarak kod ile yapmak istiyorum.

yardımlarınız için teş

Sayın Hocalarım ben programımda yaptığım bir raporu pdf formatında kaydettiriyorum. yalnız şöyle bir şey yapılabilirmi? projemizin olduğu dizinde teklifler adında bir klasörüm var. ben raporumu pdf ye dönüştürürken teklifler klasörüne bugünün tarinde hatta olabilirse bu ayın isminde bir kalsör oluştursun ve oraya kaydetsin.

Dim MyReport As String
MyReport = CurrentProject.Path & "\teklifler\" & Me.adisoyadi & "-" & Me.tcno & ".pdf"
DoCmd.OutputTo acOutputReport, "Personel Dosyası", "PDFFor

Function SayfaVarMi(Sayfa As String) As Boolean
On Error Resume Next
SayfaVarMi = CBool(Len(Worksheets(Sayfa).Name) > 0)
End Function


Sub kod()
Application.ScreenUpdating = False
Dim Sayfa As String
Dim SA As Worksheet
Dim SB As Worksheet
Dim i As Integer

Set SA = Sheets("ANASAYFA")
Set SB = Sheets("ŞABLON")

For i = 3 To SA.[B65536].End(3).Row
If SA.Cells(i, "B") <> "" Then
Sayfa = SA.Cells(i, "B")
If Not SayfaVarMi(Sayfa) Then
SB.Copy After:=Sheets(Sheets.Cou

Merhaba Arkadaşlar,

Aşağıdaki kodla sipariş formumda bulunan bir buton ile firma adıyla klasör oluşturup klasörün olup olmadığını kontrol edebiliyorum.

If Len(Dir("C:\Users\sony\Documents\deneme\" & [FirmaAdi] & "", vbDirectory)) = 0 Then

MkDir "C:\Users\sony\Documents\deneme\" & [FirmaAdi] & ""

Else

MsgBox "Firmaya ait klasör zaten önceden beri var."

End If

Sorum şu: sipariş formumda ek veri alanını kullanıyorum. O alana eklenen dosyayıda ilgili firmanın klasörünün içine

sayın Mehmet DEMİRAL hocam ve diğer hocalarım.

Mehmet hocamın düzenlediği tarih_demiral isimli Access dosyasında yeni kaydettiğim her bir sayı için mesela 2014/0006 kaydı için "klasör aç" düğmesine basınca D:\EVRAK TAKİP\DEPO\ ortamında 20140006 klasörünün oluşturulmasını istiyorum. sonradan mesela programdaki 20140002 sayılı evrak kaydında iken "klasöre git" dediğimde önceden oluşturulan D:\EVRAK TAKİP\DEPO\20140002 klasörüne gitmesini istiyorum. daha ayrıntılı bilgi için resimde ekledim ş

Herkese Selamlar. Benim Acil bir sorum olucaktı. Forumda biraz araştırdım ama tam detaylı bir cevap bulamadım.Öncelikle form yapısı içinde iladı,ilçeadi,projeadi gibi fieldlar var. Ben otomotik olarak bunları lat klasörler şeklinde içeren bir klasör açma butonu ekleme istiyorum. Yani butona tıkladığımda benim göstereceğim ana klasörün altına önce ildını sonra onun altına ilçe adını sonra onun altına projeadını içeren klasör açsın. Bunun yapılması husunda yardımcı olan arkadaşlara şimdiden teşekk

Herkese merhaba;

Forumda tabi ki forma resim eklemekle ilgili pekçok örnek var. Keza formdaki veriye göre klasör açtıran örnekte var. Aslında burada herşey var.   Ancak belki hepsini bir anda yapmak isteyen olur diye düşündüm. Bana bir pojede aşırı derecede gerekli olmuştu çünkü. Ürün kaydı yapabilen ve ürünlerle ilgili katalog yapması gereken bir proje idi. Hal böyle olunca her ürünün ayrı klasörlerde ve özel olarak isimlendirilmesi gerekmekteydi. Benzer bir çalışma yapmak isteyen ol

Merhaba;

Hem forum içinde hem de başka kaynaklarda yaptığım aramalarda işime yarayacak bir çözüm maalesef bulamadım. Bulduğum kodlar da dönüştürülemeyecek kadar karmaşıktı.

Sorun şu:

Herhangibir dosya yolundaki (örneğin veritabanının olduğu CurrentProject.Path\resimler ve alt klasörlerinde) boş klasörleri silmemiz gerekiyor. Proje içindeki döngüler çok karmaşık olduğu için klasör adı vererek bunu yaptırmak imkansız hale geldi. (Bu arada RmDir komutu da işe yaramıyor)

Bunu yapacak gen