level 2
伊桓风顺
楼主
Dim FileNum As Integer
Dim printe As String
Dim hs As Long
Dim hsS As String
t1 = Form1.Text1(1) + "\Processing\"
t2 = Text2.Textprinte = t1 & t2
hs = 0
FileNum = FreeFile
Open printe For Input As #FileNum
Do While Not EOF(FileNum)
Line Input #FileNum,hsS
hs = hs + 1
LoopClose #FileNum
Text5 = hs
---------------- 错误“52” 找不到文件名或号码 OPEN 不能打开变量路径？
2019年12月17日 14点12分
1
Dim printe As String
Dim hs As Long
Dim hsS As String
t1 = Form1.Text1(1) + "\Processing\"
t2 = Text2.Textprinte = t1 & t2
hs = 0
FileNum = FreeFile
Open printe For Input As #FileNum
Do While Not EOF(FileNum)
Line Input #FileNum,hsS
hs = hs + 1
LoopClose #FileNum
Text5 = hs
---------------- 错误“52” 找不到文件名或号码 OPEN 不能打开变量路径？
![[狂汗]](/static/emoticons/u72c2u6c57.png)