vb.net d盘有个文件夹file里面有excel类型文件怎么用getfile取到文件的路径

你好，请使用SystemIODirectoryEnumerateFiles()方法

Dim XLS文件列表 As IEnumerable(Of string)

Dim XLSX文件列表 As IEnumerable(Of string)

Dim path As String = "D:\File\"

XLS文件列表 = DirectoryEnumerateFiles(path, "xls", SearchOptionTopDirectoryOnly)

XLSX文件列表 = DirectoryEnumerateFiles(path, "xlsx", SearchOptionTopDirectoryOnly)

参考：

如何自动统计Windows已安装软件清单_百度知道

wmic运行比较慢，等10分钟左右很正常，耐心等结果就行。用里面介绍的软件会快一些。

1、用dir(“文件夹路径”)获取文件名

2、判断文件名是否为xls后缀，用do

until

做循环

3、结束循环之前用dir()，这次不带参数，获取下一个文件名

哥们，这个我有一个间接地方法可以实现，就看你能不能听懂了。

1你拿到的代码肯定是咋microsoft visual basic下的模块1上看到的，那么你双击这个界面的sheet1，看右边的代码窗口，有个“通用”的下拉框，选择“worksheet”，在“声明”下拉框选择“Worksheet_SelectionChange”，然后会生成一段代码如下：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

你在第一行和第三行之间复制你的代码，但是你的代码的第6行到倒数第二行，那么就得到了这个：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Rows("1:19")Select

SelectionCopy

Range("A21")Select

SelectionPasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=True

Rows("1:20")Select

ApplicationCutCopyMode = False

SelectionDelete Shift:=xlUp

Range("A1")Select

End Sub

保持该excel，原来的代码无所谓，删不删都没事。

然后新建一个text文件，写入：

Set oexcel=CreateObject("excelapplication")

oexcelVisible=false

Set workbook=oexcelWorkbooksOpen ("c:\1xlsm") '这是那个excel文件的绝对路径，最好保持为xlsm格式，带宏的嘛

workbookWorksheets(1)cells(1,1)select

set workbook=nothing

oexcelquit

set oexcel=nothing

保持该text文件，修改后缀为vbs，双击

注意，该代码只对第一个sheet叶有效果。

vbs代码:

msgbox "当前文件路径是 " & wscriptScriptFullName

set ws=CreateObject("WScriptShell")

MsgBox "当前文件夹是 " & wsCurrentDirectory

bat代码:

echo 当前文件路径是 %0

echo 当前文件夹是 %cd%

以上就是关于vb.net d盘有个文件夹file里面有excel类型文件怎么用getfile取到文件的路径全部的内容，包括:vb.net d盘有个文件夹file里面有excel类型文件怎么用getfile取到文件的路径、域环境下如何用批处理或vbs脚本获取电脑系统版本、安装软件、硬件等，生成excel或TXT输出到共享路径下、用VB查找某个文件夹里的Excel文件，并读取该Excel表格里的相关数据等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！