前几天在我瑞星升级后，C盘里就老出现这个文件，里面的具体内容为：

　　Attribute VB_Name = “GetLogicalDriveStringsEx“

　　Option Explicit

　　Private Declare Function GetLogicalDriveStrings Lib “kernel32“ Alias “GetLogicalDriveStringsA“ _

　　 (ByVal nBufferLength As Long, _

　　 ByVal lpBuffer As String) As Long

　　Sub Get_Logical_Drive_String

　　Attribute Get_Logical_Drive_String.VB_ProcData.VB_Invoke_Func = “ \n14“

　　 Dim DrvString As String

　　 Dim TotDrvs As Long

　　 Dim Counter As Integer

　　 ’TotDrvs returns the total number of characters in return string

　　 TotDrvs = GetLogicalDriveStrings(0, DrvString)

　　 ’DrvString is the buffer created to hold the string

　　 DrvString = String(TotDrvs - 1, “ “)

　　 ’Calling GetLogicalDriveStrings a second time fills the string with valid data

　　 ’example “a:\c:\d:\e:\“

　　 TotDrvs = GetLogicalDriveStrings(TotDrvs, DrvString)

　　 ’Parse through the return string displaying each in a msgbox

　　 For Counter = 1 To TotDrvs Step 4

　　 MsgBox Mid(DrvString, Counter, 3)

　　 Next Counter

　　End Sub

　　 请教各位大虾这里面写的是什么东西啊？