⑴ VB怎样显示文件夹内所有的文件名称
VB可以使用FileListBox 控件来获取指定文件夹内的所有文件名。
FileListBox 控件，在运行时，在 Path 属性指定的目录中，FileListBox 控件将文件定位并列举出来。该控件用来显示所选择文件类型的文件列表。例如，可以在应用程序中创建对话框，通过它选择一个文件或者一组文件。
以下是组合使用DriveListBox 、控件DirListBox 控件和FileListBox 控件来获取硬盘下任何一个文件夹内的文件名。
PrivateSubDir1_Change()File1.Path=Dir1.PathEndSubPrivateSubDrive1_Change()Dir1.Path=Drive1.DriveEndSubPrivateSubFile1_Click()DimiAsLongDebug.Print"目录夹内存在"&File1.ListCount&"个文件。"EndSub
⑵ VB文件夹 文件夹操作
窗体上放置一个DirListBox控件Dim s As String, t As IntegerPrivate Sub Dir1_Change() If UBound(Split(Dir1.Path, "\")) < t Then Dir1.Path = sEnd SubPrivate Sub Form_Load() Dir1.Path = App.Path '设置指定操作文件夹，这里是程序所在目录 s = Dir1.Path t = UBound(Split(s, "\"))End Sub 补充回答：这个似乎就和你一开始的要求有冲突了。如果这个文件夹是指定文件夹的子文件夹，那么你可以通过dirlistbox随意操作，如果不是，那么根据你的要求，就不能随意打开。如果你的意思是指任意设置指定的目录，那么我在上面的程序中也有说明了，只要给dir1.path赋值即可（比如Dir1.Path = "D:\CRT"），方法有多种（包括读取文件中保存的路径名等），但不管用什么方法，都不能够在程序界面上给用户任意选择，否则你开始的那些要求就没意义了。
⑶ VB中怎么查找文件夹中的文件并且打开
假设你的那个TextBox叫TextBox1，则在VBA中可以写：
dimFileName, Path asstring
Path = "D:123"
FileName= Path & TextBox1.Text & ".xlsx" (后面根据文件的扩展名更改）
Workbooks.Openfilename:=FileName
这是基本代码，其他的可以自由发挥。
以下是我常用的一段代码，作用是弹出一个文件夹选择框，选中文件夹后，可以自动依次打开所有文件，方便批量处理。如果不想打开很多，就把 FileDialog 里的参数改为msoFileDialogFilePicker 即可，当然，后面的For…Next循环也就不需要了。
DimPath,filename,FNameAsStringDimFileNumber,i,mAsIntegerDimfopenAsFileDialogm=1Setfopen=Application.FileDialog(msoFileDialogFilePicker)Iffopen.Show=0ThenExitSubPath=fopen.SelectedItems(1)&""Sheet2.Range("A:A").ClearContents'列出目录文件名filename=Dir(Path)DoUntilfilename=""Sheet2.Cells(m,1)=filenamem=m+1filename=DirLoopFileNumber=WorksheetFunction.CountA(Sheet2.Range("A:A"))'文件总数Fori=1ToFileNumberWorkbooks.Openfilename:=Path&Sheet2.Cells(i,1)CallWorkActiveWorkbook.CloseTrueNext
⑷ VB找文件夹下所有文件
用 FSODim MyFileFor Each MyFile In CreateObject("Scripting.FileSystemObject").GetFolder("C:\1").Files Print MyFile.NameNext如果子文件夹也要，遍历 SubFolders; 如果子文件夹内的内容也要，递归。
⑸ vb怎么打开文件夹
1、点击对话框下菜单，点击打开文件对话框。
⑹ vb读取文件夹的文件
'来个简单的吧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 WithEnd Sub
⑺ 怎样用VB创建文件夹
你说的很晕乎，最后的结果是怎样的？你再描述一下。text1文件夹里面有什么？text2文件夹里面有什么？text3文件夹里面有什么？你一个一个的说清了，让人理解了才能做啊。text4里面的内容输出到哪个文件夹里面的哪个文件里？文件名叫什么？ text4.txt?还是什么？'创建三个文件夹。Private Sub Command1_Click()Set fso = CreateObject("Scripting.filesystemobject")fso.CreateFolder ("d:\text1")fso.CreateFolder ("d:\text1\text2")fso.CreateFolder ("d:\text1\text2\text3")End Sub '向文件text4.txt中写入字符串"text4"Private Sub Command2_Click()Open "d:\text1\text2\text3\text4.txt" For Output As #1 '打开文件以便输出Print #1, "text4" '向文件text4.txt中写入字符串"text4"Close #1End Sub 我的这些代码满足你的要求吗？你可以把相关的名称换成你需要的即可。你可以试试。我对你的问题还是有些晕乎。这有两个难点，一、创建文件夹。二、创建文件，并如何往文件里写东西。我的两个按钮都有功能了，你可以自己学习之后编辑自己需要的程序。希望对你有帮助。
未经允许不得转载：山九号 » vb文件夹文件|VB中怎么查找文件夹中的文件并且打开
