vb6.0读取文件问题

显示全部楼层 · 2011-2-28 09:45:33

文件 d:\1.txt 格式：宽带连接名账户密码（空格分开）如：rwpppoe 2:3oabckTIaaa 111111private uInfo$Private Sub Command5_Click()‘连接Open "d:\1.txt" For Input As #1
Input #1, uInfo
close #1
Shell "rasdial " & uinfo, vbHideEnd SubPrivate Sub Command3_Click()’断开连接
Shell "rasdial “ & split(uInfo," ")(0) & " /disconnect", ...

千问 · 2011-2-28 09:45:33

'函数：一次性读文件至变量，非常快Function GetFile(FileName As String) As StringDim i As Integer, s As String, BB() As ByteIf Dir(FileName) = "" Then Exit Functioni = FreeFileReDim BB(Fil...