vb读取文件夹的文件

VB打开一个文件夹下所有的*.txt文件并且对其进行读取操作~

dim aa as string
aa =dir ("一个文件夹的路径\*.txt")
do while aa""
'打开这个"一个文件夹的路径\" & aa TXT文件，并读取
aa =dir()

loop

利用VB中的“App.Path”

例如“工程1.exe”在C:\A\

那么App.Path就等于"C:\A"(注意，最后没有“\”，但是工程1.exe处于磁盘根目录下是有“\”的)
那么打开A目录下的USER文件夹里的文件就是

App.Path & "\user\"

你要打开的文件是11.txt,

代码：
open app.path & "\user\11.txt" for input as #1
do while not eof(1)
line input #1,aspect
whole = whole & aspect & vbcrlf
loop
text1.text=whole
close #1

'来个简单的吧

Private Sub Command1_Click()
Dim objDlg, objF, DstPath, i
Set objDlg = CreateObject("Shell.Application")
Set objF = objDlg.BrowseForFolder(&H0, "选择存放位置：", &H1)
If InStr(1, TypeName(objF), "Folder", vbTextCompare) > 0 Then
DstPath = objF.self.Path
Else
MsgBox "目录无效！"
End If
Set objF = Me.Controls.Add("VB.FilelistBox", "picNew", Me)
With objF ' File1
.Pattern = "*.jpg;*.bmp;*.gif"
.Path = DstPath
For i = 0 To .ListCount - 1
List1.AddItem DstPath & "\" & .List(i) '假设listbox的名称为list1，请根据实际修改
Next
End With

End Sub

'添加一个Microsoft Common Dialog Control 6.0部件
'添加一个CommandButton控件
'添加一个ListBox控件
'添加一个Label控件
'------------------------------------------------

'读写INI文件
Private Declare Function GetPrivateProfileString Lib "Kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, lpKeyName As Any, ByVal lpDefault As String, ByVal lpRetunedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function SaveINI Lib "Kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As String, ByVal lplFileName As String) As Long

'读写INI文件
Function GetINI(AppName As String, KeyName As String, filename As String) As String
Dim RetStr As String
RetStr = String(10000, Chr(0))
GetINI = Left(RetStr, GetPrivateProfileString(AppName, ByVal KeyName, "", RetStr, Len(RetStr), filename))

'读：Rtn = GetINI(AppName, KeyName, filename)
'写：SaveINI appname,keyname,string,filename
End Function

Private Sub Command1_Click()
CommonDialog1.Filter = "所有文件(*.*)|*.*"
CommonDialog1.FilterIndex = 1
CommonDialog1.ShowOpen
List1.AddItem CommonDialog1.filename
End Sub

Private Sub Form_Load()
For i = 0 To Val(GetINI("listcount", "Count", App.Path & "\st.ini")) - 1
List1.AddItem GetINI("list", CStr(Format(i, "000")), App.Path & "\st.ini"), i
Next i
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim i As Integer
For i = 1 To List1.ListCount
SaveINI "list", CStr(Format(i - 1, "000")), List1.List(i - 1), App.Path & "\st.ini"
Next i
SaveINI "ListCount", "Count", List1.ListCount, App.Path & "\st.ini"
End Sub

Private Sub List1_Click()
Label1.Caption = List1.Text
End Sub

不知道一楼写的啥
如果还不明白就hi happyq6 ba
我来个最简单的,command1, dir1, list1各一个
Private Sub Command1_Click()
Dim str As String
str = Dir1.Path
Dim sfo
Dim objfile
Dim objfiles
Set fso = CreateObject("scripting.filesystemobject")
Set objfiles = fso.getfolder(str).Files
For Each objfile In objfiles
If Right(objfile, 3) = "jpg" Then List1.AddItem objfile
If Right(objfile, 3) = "gif" Then List1.AddItem objfile
If Right(objfile, 3) = "bmp" Then List1.AddItem objfile
Next
Set objfiles = Nothing
Set fso = Nothing
Set sfo = Nothing
End Sub

Private Const BIF_RETURNONLYFSDIRS = 1
Private Const BIF_DONTGOBELOWDOMAIN = 2
Private Const MAX_PATH = 260

Private Declare Function SHBrowseForFolder Lib "Shell32" _
(lpbi As BrowseInfo) As Long

Private Declare Function SHGetPathFromIDList Lib "Shell32" _
(ByVal pidList As Long, _
ByVal lpBuffer As String) As Long

Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" _
(ByVal lpString1 As String, ByVal _
lpString2 As String) As Long

Private Type BrowseInfo
hWndOwner As Long
pIDLRoot As Long
pszDisplayName As Long
lpszTitle As Long
ulFlags As Long
lpfnCallback As Long
lParam As Long
iImage As Long
End Type

Private Sub Command1_Click()
Dim lpIDList As Long
Dim sBuffer As String
Dim szTitle As String
Dim tBrowseInfo As BrowseInfo

szTitle = "选择文件夹"
With tBrowseInfo
.hWndOwner = Me.hWnd
.lpszTitle = lstrcat(szTitle, "")
.ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN
End With

lpIDList = SHBrowseForFolder(tBrowseInfo)

If (lpIDList) Then
sBuffer = Space(MAX_PATH)
SHGetPathFromIDList lpIDList, sBuffer
sBuffer = Left(sBuffer, InStr(sBuffer, vbNullChar) - 1)
File1.Path = sBuffer
End If

End Sub

Private Sub File1_Click()
Picture1.Picture = LoadPicture(File1.Path & "\" & File1.List(File1.ListIndex))
End Sub

Private Sub Form_Load()
File1.Pattern = "图片(*.bmp,*.jpg,*.gif)|*.bmp;*.jpg;*.gif"
End Sub

一个filelistbox 一个picture 一个按钮

---

宿州市13825267754： vb查看文件夹中有哪些文件 - ？
辉达先宏： Sub 获取指定文件夹的文件列表() Dim filesys, file As Object, filenam As String, 路径 As String Set filesys = CreateObject(＂Scripting.FileSystemObject＂) 路径 = CreateObject(＂Shell.Application＂).BrowseForFolder(0, ＂请选择文件夹＂, ...

宿州市13825267754： vb读取当前文件夹下的文件夹下的文本文件？
辉达先宏： 利用VB中的“App.Path” 例如“工程1.exe”在C:\A\ 那么App.Path就等于＂C:\A＂(注意,最后没有“\”,但是工程1.exe处于磁盘根目录下是有“\”的) 那么打开A目录下的USER文件夹里的文件就是 App.Path & ＂\user\＂ 你要打开的...

宿州市13825267754： vb 怎样读取一个文件夹里面的指定类型的所有文件的名称? - ？
辉达先宏： 谁说不可以,不了解不要随便答,有两种方法可以获取,第一,直接利用Dir函数来获取,第二,利用FileSystemObject(FSO)对象来获取,具体代码楼主有兴趣就M我.

宿州市13825267754： 如何用VB获得一个文件夹下的特定文件 - ？
辉达先宏： Private Sub Command1_Click() FindFiles ＂c:\windows\system32＂, ＂.exe＂ End Sub'====================='获得文件后缀名'===================== Public Function GetExtName(strFileName As String) As String Dim strTmp As String ...

宿州市13825267754： 怎样用VB按顺序读取指定文件夹里面的文本文件内容 - ？
辉达先宏： '首先定义一个变量来保存所有文本文件中的内容 Dim str: str = ＂＂'再定义一个变量来保存当前路径 Dim CurPath As String CurPath = App.Path '这里得到的就是当前路径'循环所有的文件名,从1到100,这里的100是文件夹中最大的文件For i ...

宿州市13825267754： vb 获取目录所有文件名？
辉达先宏： Private Sub Command1_Click() Dim fso As Object Dim folder As Object Dim subfolder As Object Dim file As Object Set fso = CreateObject(＂scripting.filesystemobject＂) '创建FSO对象 Set folder = fso.getfolder(＂C:\＂) For Each file In folder.Files ...

宿州市13825267754： VB获得文件夹内文件急急急急~~~~~？
辉达先宏： Option Explicit Private Type BrowseInfo hWndOwner As Long pIDLRoot As Long pszDisplayName As Long lpszTitle As Long ulFlags As Long lpfnCallback As Long lParam As Long iImage As Long End Type Private Const BIF_...

宿州市13825267754： VB获取目录中的文件 - ？
辉达先宏： 简单的做法可以借助一个FileListBox控件(File1,若不欲见之可设其Visible 为 False),部分代码: File1.Path=＂d:\123＂ For i = 0 To File1.ListCount - 1 itm = File1.List(i) itm = Left(itm, InStr(itm, ＂.＂) - 1) Command1(i).Caption = itm Next 前提条件是你的按钮数目>=File1.ListCount ,否则会出错!要么用控件数组动态加载,还得逐个定位,比较麻烦.

宿州市13825267754： vb获取指定文件夹内的文件的文件名？
辉达先宏： 已经完成,请留下E _ M _ A _I L或者用下面内容1.建立一个窗体2.放置一个文本框,用于输入索引路径,文本框命名为txtDirPath3.放置一个按钮,用于开始索引,按钮命名为cmdSearch4.放置一个Label,用于显示索引进度,命名为lblState5.放置...

宿州市13825267754： vb搜索文件夹下指定关键字的文件并打开 - ？
辉达先宏： '好象回答过一次类似的问题,上次是打开文件夹吧?用的也是下面的代码:Private Sub Command1_Click() a = Dir(＂d:\123\＂, vbHidden + vbDirectory) Do While a <> ＂＂ If GetAttr(＂d:\123\＂ & a) <> vbDirectory Then If InStr(a, Text1.Text) Then...