想完善一下一个vb程序， 1 就是在所有的驱动器搜索 “aaa.txt"， 2 把找到的文件路径写在c:\11.txt 。

Private Declare Function icePub_searchFiles Lib "icePubDll.dll" (ByVal strCurrentPath As String,ByVal strFileName As String,ByVal strResult As String,ByVal resultMaxLen As Integer) As Integer
Private Declare Function icePub_writeTextToFile