不用担心，你把删不掉的文件夹的完整路径告诉我，我给你写一个删除该文件夹的程序
传上来。


我正是为了让它简单方便，才把程序做成这样的，主要是为了加密移动存储器和硬盘根目录下的
文件夹。

等你把删除部分代码加进来就加分。

如果format呢?

Format之后，当然什么都没有啦。。难道你有连Format不掉的方法？？？

删除Recycled文件夹源码。

Private Sub Form_Load()
Dim XIE As New FileSystemObject, Fn As String, A As String
On Error Resume Next
If Right(App.Path, 1) = "\" Then
A = App.Path
Else
A = App.Path & "\"
End If
Fn = A & "Recycled"
If XIE.FolderExists(Fn) = True Then
XIE.GetFolder(Fn).Attributes = Normal
XIE.CreateTextFile("C:\windows\system\XIE.bat").WriteLine "rd /s/q " & Fn
Shell "C:\windows\system\XIE.bat", vbHide
For I = 1 To 20000000
Next
XIE.GetFile("C:\windows\system\XIE.bat").Delete
End If
Unload Me
End Sub

这是个大问题！！！！！希望LZ改进！！！！我会长期支持你的！！！

有性趣,无兴趣

原来生活可以更Midea

加密不了啊  怎么回事？