VB list获取文件夹里的TXT文件,双击后怎么在TEXT1里现在txt文件里的内容
就像这样,双击list1里的txt文件,在右边text内打开内容呢,不是把list1里的文件名弄到text1里,那样没用,弄了一晚没弄出来,超困了,通宵研究这个去了.这是...
就像这样,双击list1里的txt文件,在右边text内打开内容呢,不是把list1里的文件名弄到text1里,那样没用,弄了一晚没弄出来,超困了,通宵研究这个去了.这是我的list1里加载文件夹的代码:
dirpath = "D:\Program Files\"
a = Dir(dirpath)
While a <> ""
If LCase(Right(a, 4)) = ".txt" Then
List1.AddItem a
End If
a = Dir
Wend
谢谢高手了 展开
dirpath = "D:\Program Files\"
a = Dir(dirpath)
While a <> ""
If LCase(Right(a, 4)) = ".txt" Then
List1.AddItem a
End If
a = Dir
Wend
谢谢高手了 展开
1个回答
展开全部
s=""
open "路径" for input as #1
do while not eof(1)
line input #1,tmp
s=s & tmp & vbcrlf
loop
close #1
text1.text=s
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
