Klasör Silme (permission denied) hatası

[Excelexcellent]

Merhaba,

MkDir CreateObject("Wscript.Shell").SpecialFolders("Desktop") & "\YEDEKLER"

Bu kod ile oluşturduğum klasörü,

CreateObject("Scripting.FileSystemObject").DeleteFolder CreateObject("Wscript.Shell").SpecialFolders("Desktop") & "\YEDEKLER"

Kodu ile silmek istediğim zaman "permission denied" hatası alıyorum.

Dikkatimi çeken ayrıntı ise, klasörü oluşturduktan sonra kodların bulunduğu Excel çalışma kitabımı kapatıp yeniden başlatırsam SİL komutunda hata almıyorum. Klasör oluşturulduktan sonra bağlantının kesilmesi gerekiyor zannederim ama nasıl ?

Yardımlarınız için şimdiden teşekkür ederim.

 

[Emir Hüseyin Çoban]

. . .

Kodlarınız bende hata vermedi. Kodlarınızın devamında yapılan diğer işlemler nedir.

Şu kodları deneyiniz.

Sub kod()
    On Error Resume Next
    yol = CreateObject("Wscript.Shell").SpecialFolders("Desktop") & "\YEDEKLER"
    MkDir yol
    On Error GoTo 0
    
    [B]RmDir [/B](yol)
    
End Sub

. . .

 

[Excelexcellent]

. . .

Kodlarınız bende hata vermedi. Kodlarınızın devamında yapılan diğer işlemler nedir.

Hüseyin bey,
Kullandığım kodlar dosya sıkıştırma ile ilgili

MkDir CreateObject("Wscript.Shell").SpecialFolders("Desktop") & "\YEDEKLER"
'Bu arada ise D:\ sürücüsünden dosya kopyalama yaptığım kodlar var
ChDir "C:\Documents and Settings\excellent\Desktop\YEDEKLER\"
Shell "C:\PROGRAM FILES\WINRAR\rar.exe -R m YEDEK.rar"
CreateObject("Scripting.FileSystemObject").DeleteFolder CreateObject("Wscript.Shell").SpecialFolders("Desktop") & "\YEDEKLER"

Bu şekilde WINRAR açık kalıyor galiba birkaç deneme yaptım olmadı

 

[Emir Hüseyin Çoban]

. . .

Chdir işlemi burada işi bozan komut.
Chdir işlemini yardımcı bir klasör açarak bu işlemi aşabilirsiniz.

Sub kod()
    
    yol = CreateObject("Wscript.Shell").SpecialFolders("Desktop") & "\"
    
    On Error Resume Next
    MkDir yol & "YEDEKLER"
    On Error GoTo 0
    
    'Bu arada ise D:\ sürücüsünden dosya kopyalama yaptığım kodlar var
    ChDir yol & "YEDEKLER"
    Shell "C:\Program Files (x86)\WinRAR\rar.exe -R m YEDEK.rar"
    
    ChDir yol
    CreateObject("Scripting.FileSystemObject").DeleteFolder yol & "YEDEKLER"
    
End Sub

. . .

 

[halit3]

Birde böyle deneyiniz.

Sub kalsorekle()
klasor = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop") & "\YEDEKLER"
MkDir klasor
End Sub

Sub kalasorsil()
klasor = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop") & "\YEDEKLER"
CreateObject("Scripting.FileSystemObject").DeleteFolder klasor[COLOR="Red"], True[/COLOR]
End Sub