1、要不就重启电脑后再删除看看
2、再不行就到安全模式里去删除看看
3、还是不行的话就用强制工具来删除好了,用这个软件试试吧Unlocker 1.8.7
把上面的几种方法结合起来一定可以把那些文件给删除掉的,祝你好运。
Private Sub Command1_Click()Dim a As String
Dim filename As String
filename = Dir("C:\Users\ASUS\Desktop\Aegis 抛料服务\CurrentSvcLog*.txt")
Open "C:\Users\ASUS\Desktop\Aegis 抛料服务\" & filename For Input As #1
Text1(0).BackColor = &HFF&
Do While Not EOF(1) '循环至文件尾
Line Input #1, a '读入一行
If InStr(a, "Attempt to Reconnect to Database has failed for ") Then
Text1(0).BackColor = &HFF00&
Exit Do
End If
Loop
Close #1 '关闭文件
End Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)