vb考试能多次打开文件夹吗

① vb 如何批量打开文件

先定义个子函数试试：
Function a(b as string) As String
a=b & ".txt"
End Function
再引用
For x = 1 To 2
Open App.Path & a(x) For Input Lock Write "#"&x
Next

② VB 如何逐个打开一个文件夹里面的多个txt文件。

Dim Files() As String

Private Sub Command1_Click()
getFiles "c:\", Files() '获得文件,文件保存在Files()中
'后面为读取数据

End Sub

Private Sub getFiles(ByVal FilePath As String, F() As String)
Dim FileList As FileListBox
Dim i As Integer
Set FileList = Me.Controls.Add("VB.FileListBox", "FileList", Me)
FileList.Pattern = "*.txt"
FileList.Path = FilePath
For i = 0 To FileList.ListCount - 1
ReDim Preserve F(i)
F(i) = FilePath & FileList.List(i)
Next
Me.Controls.Remove FileList.Name
Set FileList = Nothing
End Sub

③ VB中如何同时打开多个文件

TXT文件路径存放到数组里，然后循环数组打开文件
sub a()
dim p(1 to n) as string
dim i as long
p(1)=path1
...
p(n)=pathn
for i=1 to n
open p(n)...
next i
end sub

④ vb代码请教： 请教各位老师：我有40个文件夹，如何用循环逐个打开每个文件夹

只有对文件进行所谓的打开和关闭操作，而对于文件夹，不存在打开、关闭操作？
你只需要直接进入到相应文件夹里，对该文件夹里的文件进行分析就可以了。

⑤ vb怎么打开文件夹

1、点击对话框下菜单，点击打开文件对话框。

⑥ vb如何实现打开一个文件夹中的全部文件

先用DIR列举文件,然后不断打开
如:
Dim filenames As String filenames=dir("c:\aaa\*.txt")
Do While filenames <> "" shell ("cmd /c satrt filenames") '或不同的文件打开方式filenames = Dir ’再次调用dir函数,此时可以不带参数 Loop

⑦ VB 按顺序打开文件夹

Dim D(1 To 3) As String
Dim I As Integer
Private Sub Command1_Click()
I = I + 1
If I = 1 Then
Shell "explorer " & D(I), 1
ElseIf I = 2 Then
Shell "explorer " & D(I), 1
ElseIf I = 3 Then
Shell "explorer " & D(I), 1
Else
'三次过后不执行代码

End If

End Sub

Private Sub Form_Load()
D(1) = "d:\test1"
D(2) = "d:\test2"
D(3) = "d:\test3"
End Sub

⑧ vb6.0怎么循环打开文件

while ... wend 主要目的是与以前的basic兼容，
可以放弃这种循环结构而使用 do while ... loop /for ... next/do ... while loop/for each in ...next

while ... wend结构有一个显着的缺点，在循环体中没有专门用于跳出该循环的语句，只能使用goto进行跳出。

++分吧!!!!