Question

跪求大神。。vb编程中 如何提取，文件夹里的所有文件的名字？ 该文件夹是已知的，比如"d:\abc

跪求大神。。vb编程中
如何提取，文件夹里的所有文件的名字？
该文件夹是已知的，比如"d:\abc\"
求详细代码。。

Answer 1

有点没描述清楚 如：d:\abc\ 这个里面 有若干个文件夹 和 若干个文件

你所说的所有文件的名称 是指 不包括 子文件夹名称 但是包括子文件里的文件的名称

还是就是获取d:\abc\ 这个里面的子文件夹 及 里面的文件呢？

如 有个 子文件夹 名称为：a1 里面 有个文本文档 b1.txt
是否要获取 b1.txt 这个文件名称？

追问

那个文件夹里面没有子文件夹

只有*.*的。。。

然后我要这个名字

Answer 2

f = Dir("d:\abc\*.*", vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)
while f<>""
f=dir()
print f
wend

追答

写错了，，，应是
print f
f=dir()

Dim f As string

追问

好像您挺懂这些。。

谢谢。。。

如果把这些获取的名字放在excel的表格里

追答

哈哈，我以前很喜欢vb

追问

怎么实现？

追答

list控件吧？

追问

我的问题是怎么写入到excel表格里

追答

那print f
改成
List1.AddItem f

追问

这是保存到list的吧

追答

等下

Option Explicit

    Dim xlapp As Object

    Dim xlBook As Object

    Dim xlSheet As Object

    Dim A As String

Private Sub Command1_Click()

    Set xlapp = CreateObject("excel.application")

    xlapp.Visible = True

    Set xlBook = xlapp.Workbooks.Add

    Set xlSheet = xlBook.worksheets(1)

    A = "vb操作excel"

    xlSheet.Cells(1, 1) = A'写入数据到一行一列

End Sub

这个比较复杂

追问

excel里有vb编程不？

追答

有vba

和vb很像

追问

那么如果我在excel里用vba来实现的话

怎么办？？？

追答

这。。。。我帮你查查

追问

真的谢谢。。。

追答

参考如下：
Public Sub abc()

Dim filename, inputstring As String

Dim i As Integer

Dim data

i = 1

filename = "d:\WYKS.txt" '本列TXT文件放在D盘中

Open filename For Input Access Read As #1

Do While Not EOF(1)

Line Input #1, inputstring '读TXT文件一行

data = inputstring

If i 1 Then

Cells(i - 1, 1) = Mid(data, 11, 6) '截取从第11个字符后6个字符

Cells(i - 1, 2) = Mid(data, 19, 8) '截取从第19个字符后8个字符

Cells(i - 1, 3) = Mid(data, 29, 6) '截取从第29个字符后6个字符

Cells(i - 1, 4) = Mid(data, 37, 8) '截取从第37个字符后8个字符

End If

i = i + 1

Loop

Close #1

End Sub

cells()是把数据传入表格的函数

不月谢，给个最佳答案就好😊

追问

明白了

真谢谢