auto remove script

Merhaba,

Rmdir yerine del komutunu ve joker karekterini c:\paylasım\ dizinine düştükten sonra kullanabilirsiniz.

örn :

cd\

cd c:\paylasım\

del *.* /s /q /f

exit

Bunu deneyin.

teşekkürler cevap için. ama klasörler silinmedi . nevar ne yoksa temizlesin 🙂 istiyorum. 

Merhaba,

O zaman bu scripti kullanın veya üsteki del komutu yerine deltree.exe bulun ekleyin onu kullanabilirsiniz.

Dim sFolderName, oFSO, oFolders

sFolderName = "C:\aa\"

Set oFSO = createobject("scripting.filesystemobject")
Set oFolders = oFSO.getfolder(sFolderName)
ScanFolder oFolders

Sub ScanFolder(oFolders)
 Dim oFiles, oFile, oFolder, oSubFolders, oSubFolder
 Set oSubFolders = oFolders.subfolders
 Set oFiles = oFolders.files

 For Each oFile In oFiles
  oFile.Delete(True)
 Next
 
 For Each oSubFolder In oSubFolders
  ScanFolder oSubFolder
  If oSubFolder.Size = 0 Then oSubFolder.Delete(True)
 Next

 Set oSubFolders = Nothing
 Set oFiles = Nothing
End Sub

Bu script içerisindeki "C:\aa" yerine sizdeki dizini yazmanız yeterli.

Rafet hocam teşekkürler istediğim bu şekilde oldu . 

 kolay gelsin 

Rica ederim. Geri bildirim için ben teşekkür ederim. Ancak bu şekilde uzun uzun alıntı yapmazsanız daha güzel bir görüntü ortaya çıkacaktır. Biraz daha dikkatli olalım lütfen

Rica ederim. Geri bildirim için ben teşekkür ederim. Ancak bu şekilde uzun uzun alıntı yapmazsanız daha güzel bir görüntü ortaya çıkacaktır. Biraz daha dikkatli olalım lütfen

benimde ihtiyacım vardı teşekkür ederim script için