butonla yeni klasör oluşturma

[zulfuernek]

arkadaşlar çok araştırdım ama bulamadım.
benim istediğim biraz farklı
1) butona basınca masaüstünde PDF KASA DÖKÜMLERİ adında bir klasör oluşturacak.
2) eğer böyle bir dosya daha önce açılmışsa MsgBox açılmalı ve PDF KASA DÖKÜMLERİ isimli dosya daha önce açılmış diyerek userform 1 e gitmeli

 

[halit3]

kod:

Private Sub CommandButton1_Click()
klasor = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop") & "\PDF KASA DÖKÜMLERİ"

If CreateObject("Scripting.FileSystemObject").FolderExists(klasor) = False Then
MkDir klasor
Else
MsgBox "bu " & klasor & " var"
'kodlarınız


End If

End Sub

 

[zulfuernek]

sayın halit hocam emeğinize sağlık. ilginiz için çok teşekkür ederim. tam istediğim gibi olmuş hatta daha ötesi. şirket bilgisayarı olduğu için masa üstü adresi herkesin sicili. ve onu tanıyıp ona göre yinede ekleme yaptı. ) çok çok teşekkür ederim.

sizden bir ricam daha olucak.

buton 6 ya basınca combobox10 da seçili olan dosyayı userforma aktarıyorum. benim amacım. bu adı geçen dosyayı oluşturdupumuz PDF KASA DÖKÜMLERİ klasörü içerisine AG1 hücresindeki isimle hem pdf formatıyla hemde txt formatı ile aktarabilirmiyiz.

 

[halit3]

Alıntı yazımı okuyun ne yapmak istediğinizle ilgili bir küçük dosya ekleyin txt formatı ve pdf dosyaları neye göre olacak bunlarla ilgili açıklayıcı bilgilere ve örnek dosyalarınıza ihtiyaç ver