C盘下经常呈现ab.txt文本文件，老删老有，有谁晓得那是什么啊？

前几天在我瑞星晋级后，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

　　 请教列位大虾那里面写的是什么工具啊？