硬盘上有一个文件，无法删除，提示“无法访问，目录名无效”，如何解决？
硬盘上有一个文件，无法删除，提示“无法访问，目录名无效”，如何解决？
08-12-31 &
出现这类问题一般有以下几种情况： 一：位于NTFS文件系统上，而起使用了ACL（AccessControlList），没有权限访问你要删除的文件； 二：文件正在被另外的程序使用者； 三：文件系统损坏导致无法访问你要删除的文件； 四：文件的路径太长导致无法访问； 五：文件名使用了非法的字符或Windows保留关键字。 针对每种情况的相应解决方法如下： 情况一、可以使用管理员帐户通过重新设定ACL的方法获得访问权限 对于这种情况，可以用下列方法解决：使用管理员帐户登录，在无法访问的文件上点击鼠标右键选择属性，选择“安全”标签页，选择“高级”按钮，再选择“所有者”标签页，在“将所有者更改为”BOX里面选择管理员帐户，反色，接着点击“应用”按钮使所有者变为你自己。最后点击2次确定按钮，关闭属性对话框。再次打开属性对话框，可以看到“安全”标签页下的“添加”按钮已经编程可选状态了，点击这个按钮，在“选择用户和组”对话框里面输入你要访问这个文件的帐户名（注意格式：计算机名\帐户名）。 点击确定按钮返回上一层对话框，然后在“帐户名的权限”BOX中选中完全控制复选，点击确定即可重新获得访问权限。同样，可以在命令行模式下使用cacls命令分配权限。 情况二、找到那个使用被删除文件的程序并关闭 常见的故障发生在删除一个AVI文件的时候。因为Windows有一个预读机制，预读会使文件处于被使用状态，所以无法删除。解决方法有很多： a）关闭全部资源管理器，使用命令del或rd删除文件或目录（推荐）； b）删除注册表中下面这个键值： HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\\InProcServer32。建议导出备份这个注册键值，以便以后需要时复原； c）进入DOS命令窗口，运行：REGSVR32/USHMEDIA.DLL注销掉预读功能； d）使用“Windows传统风格的文件夹”查看方式（文件夹选项－－任务下面选择） e）使用能浏览本地文件的第三方工具，如FlashFXP、CuteFTP等，进行删除。 情况三、检查文件系统，排除错误 当看到以下提示时就需要注意一下你的文件系统了： :\isnotaccessible Thefileordirectoryiscorruptandnon-readable.Thefileordirectoryiscorruptandnon-readable.Thefileordirectory\iscorruptandunreadable. PleaseRuntheChkdskutility. 排除方法：使用chkdsk命令检查你的驱动器。修复受损的文件系统。起因有很多，例如：硬盘坏道、硬件设备的错误或软件的bug都有可能引起这个问题。 情况四、路径过长，超过了大多数Windows所能接受的255个字节（NTFS文件系统没有这个问题） 使用8.3格式缩小长度或更改路径中部分目录名以减少路径的长度。例如可以暂时的把路径中某些目录改改名字，或在命令行模式下使用8.3格式。例如：假设你要删除的文件位于以下路径： C:\Documentations\HOWTO\2003\May\WindowsDocumentations\ForWebsites_Forum\Tips\Smallfrogs\Smallfrogs_Test_Project\YuanChuan_Articls\\TheTroubleShootingAboutCannotDeleteFilesInWindows\ 以上目录已经能够足以表达意思呢，不过路径长度还是不够255字节。 那么可以输入： cdC:\Docume~1\howto\2003\may\window~1\forweb~1\tips\smallf~1\yuanch~1\\thetro~1\ 可以看到，使用8.3格式以后可以节省很多长度的。因为进入这种还有长路径的目录也是不成问题的。一旦进入了这类目录，就可以使用del命名随意的删除你想删除的文件了。 情况五、因为Windows认为这个命名是不合法的或这个命名与硬件设备有关。常见的保留字有LPT1、CON等。 对于含有保留字的文件，当我们发出删除指令的时候，Windows会检查被删除的文件是否有合法的路径，如果你的文件名含有Windows认为的非法字符或保留字，那么删除就会失败。 我们有3种方法可以删除这类文件： a）采用Linux或其他非Windows的操作系统，以Linux/Unix为例：可以使用rm命令删除： rm-d//driveletter/pathusingforwardslashes/filename rm-r&//C/ProgramFiles/BadFolder& b）使用命令行工具的一个特殊参数解决： RD\\.\:\\ DEL\\.\driveletter:\path\filename 在删除命令后面跟上\\.\参数就可以避免Windows检查文件名的合法性，因此可以删除含有Windows保留字或非法名字的文件。 c）对于文件，如果可以使用通配符，那么也可以采用通配符解决： DELDELPR?.* DELLPT?.*
请登录后再发表评论!
那就用优化大师，360的文件粉碎机来粉碎他
请登录后再发表评论!将一个文件夹拖到另一个文件夹中，复制过程中取消了，然后有文件就丢失了，怎么回事？
瑞星卡卡安全论坛
基本不懂 -
22:02:00误操作把一个文件夹拖到了另一个文件夹中，发现后点取消，然后发现目的文件夹中已经有源文件夹里面的部分文件，但是打不开。而且源文件夹里相同的文件已经没了，请问为什么会出现这种情况？这种情况会对相应的分区造成破坏么？用户系统信息：Mozilla/4.0 ( MSIE 6.0; Windows NT 5.1; SV1; SE 1.X; .NET CLR 2.0.50727; .NET CLR 3.0.; .NET CLR 3.5.30729)
23:36:00一般来说把一个文件夹拖到另一个文件夹中默认是移动，相当于剪切，除非更改过默认设置或者拖动时按住了Ctrl。既然是误操作应该是直接拖动，中途取消时部分文件没有完全移动从而导致文件损坏也是有可能的。这种情况应该不会对分区产生影响，建议删除无法使用的文件，然后用数据修复软件（如easyrecovery）找回移动前的文件。
基本不懂 -
9:58:00这个算不算是系统的bug？不知道win7还会不会出现这种问题
天鹰之翼 -
11:12:00不算吧，就是一个设计失误而已，微软工程师没考虑到这点。
11:13:00这是不是bug不好说。窗口系统那么多bug，这个算不算也无关大局。嘿嘿~个人感觉这种情况发生的几率不是很高。正常情况下中途取消移动，源文件是不会损坏的。我在win7下试了几次中途取消也没有发生文件损坏的情况。平时需要移动文件的时候为了避免这种现象发生，可以先复制再删除源文件。这样即便遇到突然结束进程甚至断电也不会造成严重后果了
中国比色我第二 -
11:22:00正解。我都是这样操作的，僻如把相机的文件拷到电脑时。
RisingInternElit -
13:30:00针对你的情况，XP系统下会出现这种情况的。但是，基本上不会对分区造成损坏，所以你可以放心。win7系统下，在拖拽文件夹到另一文件夹中，如果是文件夹同名，会提示是否合并；如果文件同名，那么会提示是否覆盖或保存为两个独立的文件。如有问题，站内短信回复我。
★【正气大侠】★ -
16:58:00是这样地，同盘拉文件是移动，异盘拉文件是复制不过一般来说是传完一个文件才删一个文件的，你那种的话……可能是错误吧……我即使直接用CTRL+X再粘贴大文件，中途取消，都不会有丢失的:kaka2: 这是我的经验，不知对否
查看完整版本:查看: 814|回复: 4
[求助]如何删除同一个文件夹下多个工作簿内的同种内容
阅读权限10
在线时间 小时
& & & & & & & &
是这样的：
我的一个文件夹下面有很多个同结构的的Excel文件，主要实现的目的有两个：
1、删除里面命名为sheet3的表格
2、删除命名为“汇总”表里面的第6行
在网上找了一些遍历文件夹的方法，然后自己录制了一下删除的这段代码，在同一个文件夹下面新建了一个用于保存删除代码的excel文档，但是用起来不好使，没反应。
求各位大侠指导！
用的代码如下：
Sub OpenCloseArray()
& & Dim MyFile As String
& & Dim Arr(100) As String
& & Dim count As Integer
Application.ScreenUpdating = False
& & MyFile = Dir(ThisWorkbook.Path & &\*.xls&)
& & count = count + 1
& & Arr(count) = MyFile
& && &
& & Do While MyFile && &&
& && &&&MyFile = Dir
& && &&&If MyFile = && Then
& && && && &Exit Do
& && &&&End If
& && &&&count = count + 1
& && &&&Arr(count) = MyFile& && && &'将文件的名字存在数组中
& & Loop
& && &
& & For i = 1 To count
& && &&&Workbooks.Open Filename:=ThisWorkbook.Path & &\& & Arr(i)&&'循环打开Excel文件
& && && && &Sheets(&3&).Select
& && && && &ActiveWindow.SelectedSheets.Delete
& && && && &Sheets(&汇总&).Select
& && && && &Rows(&6:6&).Select
& && && && &Selection.Delete Shift:=xlUp& && && && &'修改打开文件的内容
& && &&&ActiveWorkbook.Close savechanges = True& &&&'关闭打开的文件
& & Next
Application.ScreenUpdating = True
End Sub
复制代码
阅读权限50
在线时间 小时
Sub test()
Dim myfile
Application.ScreenUpdating = False
myfile = Dir(ThisWorkbook.Path & &\*.xls&)
Do While myfile && &&
&&If myfile && ThisWorkbook.Name Then
& &Workbooks.Open ThisWorkbook.Path & &\& & myfile
& &On Error Resume Next
& &With ActiveWorkbook
& && & .Sheets(3).Delete
& && & .Sheets(&汇总&).Rows(6).Delete
& && & .Close savechanges:=True
& &End With
& &End If
& &myfile = Dir
Loop
& &
Application.ScreenUpdating = True
End Sub
复制代码
阅读权限10
在线时间 小时
战战如疯 发表于
这个真的可以，哈哈，谢谢了。不过还有个问题，就是会跳出确认删除的对话框，怎么取消掉呢？
阅读权限10
在线时间 小时
本帖最后由 landidu 于
15:35 编辑
战战如疯 发表于
好了，谢谢大神，代码看起来真的很简洁。加了句Application.DisplayAlerts = False
最后的代码给大家放出来，希望也能帮助到有类似需求的同学们哈：
Sub test()
Dim myfile
Application.ScreenUpdating = False
myfile = Dir(ThisWorkbook.Path & &\*.xls&)
Do While myfile && &&
&&If myfile && ThisWorkbook.Name Then
& &Workbooks.Open ThisWorkbook.Path & &\& & myfile
& &On Error Resume Next
& &With ActiveWorkbook
& & Application.DisplayAlerts = False
& && & .Sheets(&3&).Delete
& && & .Sheets(&汇总&).Rows(6).Delete
& && & .Close savechanges:=True
& &End With
& &End If
& &myfile = Dir
Loop
& &
Application.ScreenUpdating = True
End Sub
复制代码
阅读权限50
在线时间 小时
landidu 发表于
好了，谢谢大神，代码看起来真的很简洁。加了句Application.DisplayAlerts = False
最后的代码给大家放出 ...
Application.DisplayAlerts = False这句不要加了循环里，加在application.screenupdating这句后面，然后在loop下一行再加上application.displayalerts=true恢复过来
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师}