UC知道VB菜单问题
来源：百度知道 编辑：UC知道 时间：2024/06/23 05:16:47
假如"d:\a"文件夹中包含"1"跟"2"两个子文件夹("d:\a\1"和"d:\a\2")还有一个a.txt,
然后在"d:\a\1"中有一个b.txt,在"d:\a\2"中一个c.txt,
请问应该怎样把它们添加进动态菜中？
示意图如下：
a
...1
......b.txt
...2
......c.txt
...a.txt
gujin170 :
先谢谢你的回答,我的表达能力不太好呀,怎么说呢.我的意思是把文件夹的名称跟文件的名称添加进动态菜单里,不是读取txt内容.
然后在"d:\a\1"中有一个b.txt,在"d:\a\2"中一个c.txt,
请问应该怎样把它们添加进动态菜中？
示意图如下：
a
...1
......b.txt
...2
......c.txt
...a.txt
gujin170 :
先谢谢你的回答,我的表达能力不太好呀,怎么说呢.我的意思是把文件夹的名称跟文件的名称添加进动态菜单里,不是读取txt内容.
不知道你什么意思....
是读取到text？那代码如下：
Dim TempFile As Long
Dim LoadBytes() As Byte
Private Sub Command1_Click()
TempFile = FreeFile
Open "d:\a\1\b.txt" For Binary As #TempFile
ReDim LoadBytes(1 To LOF(TempFile)) As Byte
Get #TempFile, , LoadBytes
Close TempFile
Text1.Text = StrConv(LoadBytes, vbUnicode)
End Sub
Private Sub Command2_Click()
TempFile = FreeFile
Open "d:\a\2\c.txt" For Binary As #TempFile
ReDim LoadBytes(1 To LOF(TempFile)) As Byte
Get #TempFile, , LoadBytes
Close TempFile
Text1.Text = StrConv(LoadBytes, vbUnicode)
End Sub
Private Sub Form_Load()
TempFile = FreeFile
Open "d:\a\a.txt" For Binary As #TempFile
ReDim LoadBytes(1 To LOF(TempFile)) As Byte
Get #TempFile, , LoadBytes
Close TempFile
Text1.Text = StrConv(LoadBytes, vbUnicode)
End Sub