Question

vb 编程中，想要获取指定文件夹下的文件夹名，例如D:\X轴\下的所有文件夹的名称，并显示在textbox中

是指定的D:\X轴\下的文件夹名，希望您能帮帮我，万分谢谢！！！

Answer 1

' 查找指定目录下的文件夹，并显示在TextBox中，
' 需要一个TextBox控件，打开Multline属性，
' 每找到一个文件夹，便显示并换行

strPathTmp = "D:\X轴\"
strNameTmp = Dir(strPathTmp, vbDirectory)
Do While strNameTmp <> ""
If strNameTmp <> "." And strNameTmp <> ".." Then
If GetAttr(strPathTmp & strNameTmp) = vbDirectory Then
'在strPathTmp目录下找到文件夹strNameTmp
Text1.text = Text1.text & strNameTmp & Chr(13) + Chr(10)
End If
End If
strNameTmp = Dir
Loop

追问

您太厉害了，谢谢啊，还有一个问题就是想引用在text里面显示的文件夹名进行计算，如何对他们进行标记，就是如果text里面显示了三个文件夹名例如100,200,300，如果想要取100这个数据的话（在另外一个窗口引用），该怎么表示呢，呵呵，麻烦你了，谢谢

追答

用TextBox做这事挺麻烦，不如你把TextBox换成ListBox，这样原来的程序就变成：
strPathTmp = "D:\X轴\"
strNameTmp = Dir(strPathTmp, vbDirectory)
Do While strNameTmp ""
If strNameTmp "." And strNameTmp ".." Then
If GetAttr(strPathTmp & strNameTmp) = vbDirectory Then
'在strPathTmp目录下找到文件夹strNameTmp
lis.AddItem strNameTmp
End If
End If
strNameTmp = Dir
Loop

这样，以后你引用名称时，可以这样引用：
lis.List(lis.ListIndex) 'lis.ListIndex是你用鼠标选择的那一行。
或者
lis.ListIndex=xx 'xx表示的是列表的索引，意思是先定位到xx这一行。
y = Val(lis.Text) '取得对应索引的列表内容，y就是你要得到的文件名。

追问

哦，明白了，太谢谢您了，我现在已经把在listbox中显示的文件夹名存到一个文本里面了，然后想让两个文本的每个数据对应的相乘（第一个数据与另一个文本的第一个数据相乘，以后以此类推），最后求和。能帮我解决一下吗，谢谢了。麻烦你了！！！

追答

其实，不是很明白你要做什么。有几个问题：
1、从另一个窗口引用数据虽然方法很多，但最一般的方法就是使用全局变量。
先建一个模块（*.bas），在里面定义Public intNameValue As Integer，直接赋值引用即可。
也可以直接在窗口文件中定义Public 类型的变量，在其它窗口引用时要这样写：
Form1.intNameValue = 0
2、另外，关于相乘的问题，不是很明白你要做什么。
我的理解是：有两个ListBox：lis1和lis2，里面保存了文件名，你想怎么计算？是这样么？
For i = 0 To N 'N这里是列表里文件名的数量
lis1.ListIndex = i
lis2.ListIndex = i
y = y + Val(lis1.Text) * Val(lis2.Text)
Next
这个只能计算对应行上的乘机，比如lis1.List(0) * lis2.List(0) + lis1.List(1) * lis2.List(1) + lis1.List(2) * lis2.List(2) ......

追问

你的QQ多少啊，我可以加你QQ吗，我的616934841

Answer 2

X轴是什么意思 文件夹名称吗

追问

是文件夹名称，想要获取的是D:\X轴\这个文件夹下的所有文件夹名

追答

一会的功夫这么多人回答
如果说你第二个问题没人回答的话，我再回答 我不跟他们抢 O(∩_∩)O哈哈~

追问

呵呵 ，您太有意思了，我还有个问题麻烦您帮我解决一下，很着急的，就是将两个txt文本的每个数据对应的相乘（第一个数据与另一个文本的第一个数据相乘，第二个与第二个相乘，以后以此类推），最后求和。能帮我解决一下吗，谢谢了。麻烦你了！！！

追答

你说的是第一个文本框的第一行的数据，与第二个文本框的的第一行的数据相乘对吧

Answer 3

Dim mypath As String
Dim myname As String
mypath = "D:\X轴\" ' 指定路径。
myname = Dir(mypath, vbDirectory) ' 找寻第一项。
Do While myname <> "" ' 开始循环。
' 跳过当前的目录及上层目录。
If myname <> "." And myname <> ".." Then
' 使用位比较来确定 MyName 代表一目录。
If (GetAttr(mypath & myname) And vbDirectory) = vbDirectory Then
'找到目录了，如果是你要的100目录则干活
if myname="100" then ' 如果它是一个目录，将其名称显示出来。
msgbox "你现在可以在另外的窗体中处理这个myname了"
end if
End If
End If
myname = Dir ' 查找下一个目录。
Loop

Answer 4

方法一：
利用DirBox控件，但隐藏的文件夹不能获取出来
代码如下：
Private Sub Command1_Click()
Dim i As Long, s As String, sT As String
Dir1.Path = "D:\123\"
Text1 = ""
For i = 0 To Dir1.ListCount - 1
sT = Dir1.List(i)
If Right(sT, 1) = "\" Then sT = Left(sT, Len(sT) - 1)
sT = Right(sT, Len(sT) - InStrRev(sT, "\"))
s = s & sT & vbCrLf
Next i
Text1 = s
End Sub

方法二：
利用FSO（引用Microsoft Scripting Runtime），能获取到隐藏的文件夹
代码如下：
Private Sub Command2_Click()
Dim FSO As New FileSystemObject, FSOFolders As Folders, FSOFolder As Folder
Dim s As String, sT As String
Set FSOFolders = FSO.GetFolder("D:\123\").SubFolders
For Each FSOFolder In FSOFolders
sT = FSOFolder.Path
If Right(sT, 1) = "\" Then sT = Left(sT, Len(sT) - 1)
sT = Right(sT, Len(sT) - InStrRev(sT, "\"))
s = s & sT & vbCrLf
Next
Text1 = s
End Sub

方法三：
利用API...（忘记了）...你可以百度下...

方法四：
利用Dir函数...楼上有讲...
不过，楼上的不能显示隐藏的和系统的文件夹，可以修改Dir的第二个参数
可以改为： vbDirectory Or vbHidden Or vbNormal Or vbReadOnly Or vbSystem