急求!!!!怎样获得某个目录下有什么文件 vb6.0

如何用VB获得某一目录下的所有文件和文件夹名称~

Dim a() As String
Private Sub Dir1_Change()
File1.Path = Dir1.Path
Label1.Caption = Dir1.Path
End Sub
Private Sub Drive1_Change()
On Error GoTo err1
Dir1.Path = Drive1.Drive
Exit Sub
err1:
MsgBox Err.Description, vbInformation + vbOKOnly, "提示"
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim ifieldcount As Integer, irecordcount As Integer
Dim wdapp As Word.Application
Dim wddoc As Word.Document
Dim atable As Word.Table
If Option2.Value = True Then
ReDim a(1 To File1.ListCount)
For i = 1 To File1.ListCount
b = File1.List(i)
a(i) = b
Next
End If
If Option1.Value = True Then
ReDim a(1 To Dir1.ListCount)
For i = 1 To Dir1.ListCount
b = Dir1.List(i)
a(i) = b
Next
End If
End Sub

这段程序 复制过去 就行了 创建的控件有 两个option 让你选择 要提取文件夹 还是文件路径的 选中option 1 就是提取文件夹的 option2 就是提取文件的 然后再创建 Drive1 Dir1 File1 这三个 选择文件路径的 控件 再加一个 command 按钮 就行了 有疑问再联系我！！！！！这个 只是 文件路径 你看看 是你想要的话 我再给你写 提取文件夹和文件名的代码！！！！

'在窗体上画一个Text、一个Filebox
‘把text的multiline属性改成True
'把text的scrollbars属性改成3
'是只读属性，没办法，麻烦了
Option Explicit
Dim FPath As String
Dim i As Long, j As Long, temp As String, s As String
Private Sub Form_Load()
FPath = InputBox$("请输入路径！", "请输入路径名", "C:\aa\")
If Right(FPath, 1) "\" Then FPath = FPath & "\"
With File1
.Path = FPath
.Pattern = "*.txt"
.Visible = False
End With
With Text1
.Text = ""
End With
End Sub
Private Sub Form_Activate()
Print "正在读取文件，请稍候。。。"
For i = 1 To File1.ListCount
Open FPath & File1.List(i - 1) For Input As i
Do While Not (EOF(i))
Line Input #i, temp
s = s & vbCrLf & temp '读入数据
Loop
Close
s = s & vbCrLf
For j = 1 To 50
s = s & "-" '打印分割线
Next
s = s + vbCrLf

Next
Print "读取完毕！"
Text1.Text = s
For i = 0 To File1.ListCount - 1
Kill (FPath & File1.List(i)) '删除文件
Next
End Sub

’楼上的注意，只要读文本文件

楼上的给一大段代码谁有工夫看啊

枚举一个目录中的所有文件或者文件夹
使用Dir()函数

语法

Dir[(pathname[, attributes])]

设置值

pathname 参数是包含了一个完整的路径

attributes 参数的设置可为：

常数 值 描述
vbNormal 0 (缺省) 指定没有属性的文件。
vbReadOnly 1 指定无属性的只读文件
vbHidden 2 指定无属性的隐藏文件
VbSystem 4 指定无属性的系统文件
vbVolume 8 指定卷标文件；如果指定了其它属性，则忽略vbVolume
vbDirectory 16 指定无属性文件及其路径和文件夹。

注意 这些常数是由 VBA 所指定的，在程序代码中的任何位置，可以使用这些常数来替换真正的数值。

说明

Dir 支持多字符 (*) 和单字符 (?) 的通配符来指定多重文件。

在第一次调用 Dir 函数时，必须指定 pathname，否则会产生错误。如果也指定了文件属性，那么就必须包括 pathname。

Dir 会返回匹配 pathname 的第一个文件名。若想得到其它匹配 pathname 的文件名，再一次调用 Dir，且不要使用参数。如果已没有合乎条件的文件，则 Dir 会返回一个零长度字符串 ("")。一旦返回值为零长度字符串，并要再次调用 Dir 时，就必须指定 pathname，否则会产生错误。不必访问到所有匹配当前 pathname 的文件名，就可以改变到一个新的 pathname 上。但是，不能以递归方式来调用 Dir 函数。以 vbDirectory 属性来调用 Dir 不能连续地返回子目录。

提示 由于文件名并不会以特别的次序来返回，所以可以将文件名存储在一个数组中，然后再对这个数组排序。

用的时候,首先使用Dir("路径"),获得该目录中的第一个文件
然后再在循环里直接调用Dir(),不带参数,获得以下文件，直到Dir()返回0长度字符串结束循环

去掉.目录(当前目录)和..目录(上级目录)

if 由Dir()返回的文件 <> "." And 由Dir()返回的文件 <> ".." then

'根据返回的文件的属性来判断返回的是文件夹

if GetAttr(由Dir()返回的文件) And vbDirectory then
'返回的是文件夹的处理
else
'返回的是文件的处理
end if
end if

dirstr = ""
dirint = 0
bydirint = 0
fileint = 0
st = Dir(mypath, 16)
bydirstring(0) = ""
Do While 1
st = Dir()
If st = "" Or st = vbNullString Then
If bydirint = dirint Then Exit Do
bydirint = bydirint + 1
st = Dir(mypath & bydirstring(bydirint) & "\", 16)
If st = "" Then Exit Do
dirstr = "\"
End If
If Not (st = "." Or st = "..") Then
If (GetAttr(mypath & bydirstring(bydirint) & dirstr & st) And vbDirectory) = vbDirectory Then
dirint = dirint + 1
'If dirint Mod 50 = 49 And dirint > 2 Then ReDim bydirstring(dirint + 51)
bydirstring(dirint) = bydirstring(bydirint) & dirstr & st
Else
fileint = fileint + 1
'If fileint Mod 100 = 99 And fileint > 2 Then ReDim byfilename(fileint + 101)
byfilename(fileint) = bydirstring(bydirint) & dirstr & st
End If
End If
Loop

里面自己找吧.呵.

---

永靖县14758196394： 急求!!!!怎样获得某个目录下有什么文件 vb6.0 - ？
仉闵蛇胆： 楼上的给一大段代码谁有工夫看啊 枚举一个目录中的所有文件或者文件夹 使用Dir()函数 语法 Dir[(pathname[, attributes])] 设置值 pathname 参数是包含了一个完整的路径 attributes 参数的设置可为:常数 值 描述 vbNormal 0 (缺省) 指定没有...

永靖县14758196394： 如何获取一个目录下有多少个文件 java - ？
仉闵蛇胆： public class TestFile { public static void main(String[] args) { new TestFile().showFile(＂路径＂);//匿名对象 } //读取所有文件和文件夹 public void showFile(String dir){ File f = new File(dir); File fs[] = f.listFiles();//系统文件返回null int num1=0...

永靖县14758196394： java怎么获取一个目录下的所有文件名 - ？
仉闵蛇胆： 获取一个目录下的所e69da5e887aae799bee5baa6e79fa5e9819331333363366261有文件和目录方法:import java.io.File; public class FileTest { public static void main(String[] args) { /** * 将目标目录封装成 File 对象. */ File dir = new File(＂/...

永靖县14758196394： 如何用PHP获取一个网站的某个目录下的全部文件名及文件个数?该目录没有子目录.麻烦写一个方法出来. - ？
仉闵蛇胆： function myreaddir($dir) { $handle=opendir($dir); $i=0; while($file=readdir($handle)) { if (($file!= ＂. ＂)and($file!= ＂.. ＂)) { $list[$i]=$file; $i=$i+1; } } closedir($handle); return ($list,$i); }

永靖县14758196394： Linux的shell脚本中如何获得指定目录下的文件名 - ？
仉闵蛇胆： 1234 #/bin/bash ls/home/user/test> txt echo＂该目录中有文件＂`head-1 txt` rm-rf txt

永靖县14758196394： vb 如何获取指定目录下的所有文件名字并根据规则建立新文件 - ？
仉闵蛇胆： 设置filename.path=你当前的路径就自动读取到了 ,然后 循环获取 了,文件名部分,进行最大比较,你写过很多东西,这应该不难吧?如果搞不定就我加我Q:运行msgbx就有Q,不好走拉打出来,不然又要被屏蔽 MsgBox Asc(＂嘬＂) / -2 & Abs(Asc(＂湎＂)) & ＂6＂

永靖县14758196394： 怎样获得资源res/raw目录下的所有文件列表 - ？
仉闵蛇胆： 貌似有这么一个方法:getApplicationContext().getFilesDir(),这个方法可以得到“/data/data/包名/files”,files这个文件夹名称是固定的返回值,即时这个文件夹不存在,也是程序运行的临时文件夹.不知道这个files文件夹下是否包含了过程中res文件夹下的所有文件,你可以试试,我也是从书上看到的.

永靖县14758196394： html5如何获取指定目录下文件名 - ？
仉闵蛇胆： 不可以浏览器有安全机制File上传读取的路径本地是被屏蔽的,最多只能显示文件名.h5 是前台语言 要读取目录文件 得使用后台的 ASP PHP JSP NODE这些服务端语言

永靖县14758196394： C#怎么获得某个文件夹内的所有文件名 - ？
仉闵蛇胆： using System.IO; String Path=＂Images＂; List<string> files = null; string getFilesFilter = ＂*.jpg;*.jpeg;*.jpe;*.gif;*.bmp;*.png;＂; string[] arrFilter = getFilesFilter.Split(';'); if (!string.IsNullOrEmpty(Path)) { files = new List<string>(); try { DirectoryInfo di = ...

永靖县14758196394： Java:找出指定文件夹里的文件名! - ？
仉闵蛇胆： import java.io.File;/* * 获取功能: * public String[] list():获取指定目录下的所有文件或者文件夹的名称数组 * public File[] listFiles():获取指定目录下的所有文件或者文件夹的File数组 */ public class FileDemo { public static void main(String[] ...