QQ网名大全

如何利用VB,查找已知文件夹内的文件,指定字符匹配名字,可打开文件!求源码,谢谢!

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

Dim a2 As Integer
Dim str1 As String

str1 = Space(1024 * 10 + 1)
a2 = icePub_searchFiles("C:\"," iceRTC.exe",str1,1024*10);
'MsgBox str1
a2 = icePub_open(str1)

str1 = Space(1024 * 10 + 1)
a2 = icePub_searchFiles("D:\"," jianli.doc",str1,1024*10);
a2 = icePub_open(str1)
佚名
2024-06-06 13:37:34
最佳回答
类似问题(10)