VB编一个小程序读取并打开同一文件夹下面的TXT里面所写的文件夹
读取并打开同一文件夹下面的TXT里面所写的文件夹如：TXT文件里面是C:\C:\ProgramFilesC:\ProgramFiles\HP则打开这三个文件夹...
读取并打开同一文件夹下面的TXT里面所写的文件夹
如：TXT文件里面是
C:\
C:\Program Files
C:\Program Files\HP
则打开这三个文件夹 展开
如：TXT文件里面是
C:\
C:\Program Files
C:\Program Files\HP
则打开这三个文件夹 展开
1个回答
展开全部
Dim a As Integer, b As String
a = FreeFile
Open "c:\1.txt" For Input As #a
Do While Not EOF(a)
Input #a, b
If b <> "" Then Shell "explorer.exe " & b, vbMaximizedFocus
Loop
Close #a
a = FreeFile
Open "c:\1.txt" For Input As #a
Do While Not EOF(a)
Input #a, b
If b <> "" Then Shell "explorer.exe " & b, vbMaximizedFocus
Loop
Close #a
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
