这个获取文件名，能否改成word版本

duquancai

13907933959 发表于 2017-5-23 07:16
杜前辈好！
能不能劳您给一个提取多层文件夹内所有文件名的代码？在“选择文件夹”时，也能包括电脑桌面 ...

Sub dosdir_提取()
    Dim arr, doc As Document
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show Then pa$ = .SelectedItems(1) Else MsgBox "请选目标文件夹": Exit Sub
    End With
    Set doc = ActiveDocument
    With CreateObject("WScript.Shell")
        stxt$ = .Exec("cmd /c dir/a-d-h/b/s " & pa).StdOut.ReadAll
    End With
    arr = Split(stxt, vbCrLf)
    doc.Content.Text = Empty
    doc.Content.Text = stxt
    MsgBox "已提取：" & UBound(arr) & "个包含选择路径下的所有文件！"
End Sub

13907933959

duquancai 发表于 2017-5-23 08:47
Sub dosdir_提取()
    Dim arr, doc As Document
    With Application.FileDialog(msoFileDialogFold ...

杜前辈好！
这个好像只能提取Word文档的文件名，不能提取txt文本的文件名，这怪我刚才没表达清楚，抱歉！
我的多层文件夹内有Word文档，也有txt文本，能不能再劳您给一个，两种文件名都提取的代码？
拜谢！

duquancai

13907933959 发表于 2017-5-23 10:10
杜前辈好！
这个好像只能提取Word文档的文件名，不能提取txt文本的文件名，这怪我刚才没表达清楚，抱歉 ...

你看清楚，运行了再发言。你凭什么说只是提取的word文件？

13907933959

duquancai 发表于 2017-5-23 10:21
你看清楚，运行了再发言。你凭什么说只是提取的word文件？

杜前辈好！
不是，不是！抱歉！抱歉！我也刚发现是放在桌面上的文件夹（快捷方式的文件夹可提取），里面的文件名提取不了，我刚才是把一个多层的文件夹复制粘贴到了桌面上测试，文件名提取不了，前辈能不能让它把桌面上的文件夹里面的文件名也能提取？

duquancai

13907933959 发表于 2017-5-23 10:52
杜前辈好！
不是，不是！抱歉！抱歉！我也刚发现是放在桌面上的文件夹（快捷方式的文件夹可提取），里面 ...

你懂点基础常识好不，快捷方式的文件夹 中的文件位置在什么地方？自己先去搞明白再说。我不想说了。

13907933959

duquancai 发表于 2017-5-23 11:48
你懂点基础常识好不，快捷方式的文件夹 中的文件位置在什么地方？自己先去搞明白再说。我不想说了。

杜前辈好！
我是说：直接放在桌面上的文件夹，里面的文件名提取不了，能不能让它把桌面上的文件夹里面的文件名也能提取？

duquancai

13907933959 发表于 2017-5-23 14:38
杜前辈好！
我是说：直接放在桌面上的文件夹，里面的文件名提取不了，能不能让它把桌面上的文件夹里面的 ...

桌面上的文件夹与不是桌面上的文件夹有啥区别吗？我无语了！

13907933959

duquancai 发表于 2017-5-23 14:46
桌面上的文件夹与不是桌面上的文件夹有啥区别吗？我无语了！

杜前辈好！

您知道我是个外行，表述总是不能像内行那样到位，恳请前辈见谅！

我是说：11楼的代码，放在其它盘内的文件夹用快捷方式到桌面上的文件夹，里面的文件名可提取。

如直接复制粘贴在桌面上的文件夹，里面的文件名提取不了。

duquancai

13907933959 发表于 2017-5-23 15:34
杜前辈好！您知道我是个外行，表述总是不能像内行那样到位，恳请前辈见谅！我是说：11楼的代码，放在其它盘 ...

你前面说好像只能提取Word文档，现在又说文件位置不一样又提取不了文件。真不知道你在说些啥？你请你师傅回答吧！不要纠缠了。

13907933959

duquancai 发表于 2017-5-23 16:56
你前面说好像只能提取Word文档，现在又说文件位置不一样又提取不了文件。真不知道你在说些啥？你请你师傅 ...

杜前辈好！
好的、我本来的意思是想再劳您把11楼的代码完善一下，让它把直接复制粘贴到桌面上的文件夹，里面的文件名也能提取，因这个我也经常会用到，如您以经烦了，那就算了！说声抱歉！前辈！