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進行跳出。

++分吧!!!!