将以下文字复造到记事本中，然后另存为AA。vbs，双击AA。vbs就能够将U盘中隐藏的文件显示出来。
'肃清U盘病毒 ——Powered by Breakan
result=MsgBox("能否已插入U盘?" vbTab "^o^",4,"肃清U盘病毒 -Powered by Breakan")
If result=7 Then WScript。
Quit
Set objws=WScript。CreateObject("wscript。shell")
Set objfs=CreateObject("scripting。filesystemobject")
sign=0
For Each d In objfs。
Drives
If d。DriveType=1 Then
sign=1
Call KillVirus(d。DriveLetter)
End If
Next
If sign=0 Then
MsgBox "没有检测到U盘 - -!"
ElseIf sign=1 Then
MsgBox "病毒肃清完毕 ^o^"
End If
Sub KillVirus(drv)
Set objd=objfs。
GetFolder(drv ":\")
'检测能否有autorun。ini并删除
autofile=drv ":\autorun。inf"
If objfs。FileExists(autofile) Then
objfs。
DeleteFile(autofile)
End If
'肃清根目次下的。exe文件
For Each f In objd。Files
If objfs。
GetExtensionName(f。Name)="exe" Then
f。Attributes=0
objfs。DeleteFile(f。
Path)
End If
Next
'将文件夹打消sh属性
For Each fol In objd。SubFolders
fol。
Attributes=1
Next
End Sub 那是我的答复，希望对你有帮忙。