我已经写了n天了，小弟刚刚学习vb临时遇到点问题，希望能够得到高手的指点。
我想通过vb实现删除u盘中存在的隐藏文件，因为病毒往往都是隐藏文件。我已经完成了识别u盘部分，剩下的获取隐藏文件和删除部分，由于本人水平有限，希望大虾指点一下。我是用vb6.0写的，源程序如下。

谢谢qlong0728大哥的耐心指点，关于这点我已经试过了,你那样是要针对你已经知道文件名的情况下，我现在这个代码主要想实现，不知道文件名的情况下只针对优盘上面的隐藏文件起作用。

关于这点，我这里有个问题，如果u盘中没有其他文件，只有病毒文件，这个过程是可以的，但是如果同时还有其他文件，kill "u盘\*.*" 就会删除u盘中所有的文件了。也包括非隐藏文件。

希望大虾你能根据我所说的情况继续分析一下。我的想法是，先获取u盘隐藏文件的路径，然后用相关setattr函数设置vbnormal，然后利用已经获取的路径删除相关文件。以达到清除隐藏文件的目的。

谢谢你了，我已经用上面那个段代码给解决问题了。不过现在又有点新的问题就是
Private Sub 退出_Click()

Dim nType As Long
Dim s As String
Dim sDrive As String
Dim pos As Integer
Dim nName As Long

s = String(256, Chr(0)) '清空S

GetLogicalDriveStrings Len(s), s '获得盘符
Do
pos = InStr(s, Chr(0))

sDrive = Left(s, pos - 1)


s = Mid(s, pos + 1)

nType = GetDriveType(sDrive)

If nType = 2 Then
'在这里添加一行代码，实现打开优盘功能。

Exit Do
End If

Loop Until pos <= 0

End
End Sub

上面那个问题我已经解决了。Shell "explorer " & App.Path, vbNormalFocus