Question

编程VB 在text1中输入文件名，点击按钮，在某盘某文件夹下找到该文件，并将文件内容显示在text2中

Answer 1

If Len(Dir(Text1.Text)) > 0 Then '判断文件是否存在
Dim n As Integer: n = FreeFile
Open Text1.Text For Input As n
Text2.Text = Input(LOF(n), n)
Close n
Else
MsgBox "文件不存在"
End If

Answer 2

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_readFileToText Lib "icePubDll.dll" (ByVal strFilename As String,ByVal strText As String,ByVal maxLen As Integer) As Integer

Dim a2 As Integer
Dim str1 As String
Dim strText As String

str1 = Space(1024 * 10 + 1)

a2 = icePub_searchFiles("C:\",Text1.Text,str1,1024*10)
MsgBox str1

strText=Space(1024*10+1)

a2 = icePub_readFileToText(str1,strText,1024*10)
'MsgBox strText
Text2.Text=strText

Answer 3

那这文件 得是能显示的呀

Answer 4

2875278