联系我们

工作时间: 8:30 - 22:00

客服电话: 400-660-0108

kefu@csdn.net 在线客服

关于我们
招贤纳士
商务合作
寻求报道
协议专区

友情链接
视觉中国
500px
直聘网
优设网
CSDN文库
CSDN下载
CSDN问答
京ICP备19004658号
经营性网站备案信息
公安备案号11010502030143
营业执照
北京互联网违法和不良信息举报中心
家长监护
中国互联网举报中心
网络110报警服务
Chrome商店下载
账号管理规范
版权与免责声明
版权申诉
出版物许可证
©1999-2026北京创新乐知网络技术有限公司

全部
Ada助手

社区 >VB基础类 >帖子详情

请教高手,用什么函数或方法能得到已知文件夹下的未知文件名啊?谢谢回答!! （zjn12 ）

2003-12-11 11:17:14 83 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

zjn12 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网我也要 → 关注 + 加入社区

dotfiles 点文件去做 SSD上的TRIM 通过无痛药来工作不同的xmobar配置手动步骤安装NixOS： ://nixos.org/nixos/manual/index.html 我建议设置。 {root，nix，cache，persist}数据集似乎很有意义如果使用ZFS，请在适用的情况下设置自动快照。您可能需要配置WiFi： ifconfig wlp3s0 down ifconfig wlp3s0 up iwconfig wlp3s0 essid ... sleep 10 && ping 8.8.8.8 # repeat as needed 确保在zjn中添加zjn用户，主机名，git / vim / wget 重启时：以root身份登录，设置passwd zjn 以zjn身份zjn 停用root密码（ passwd -l root ）。然后继续立即下载

内容如上:

...全文

配置赞助广告

ENVI 用户指南(入门教程) ENVI入门教程............. 立即下载

相关推荐

老驱动模块在高版本内核编译下错误解决

文章整理了老驱动模块在高版本内核编译下的两个错误并给出解决办法。

weixin_38694699

火麻油（食品安全企业标准）.pdf

火麻油（食品安全企业标准）.pdf

keras 实现轻量级网络ShuffleNet教程

主要介绍了keras 实现轻量级网络ShuffleNet教程，具有很好的参考价值，希望对大家有所帮助。一起跟随小编过来看看吧

weixin_38689976

Windows部署CVAT教程[项目代码]

本文详细介绍了在Windows系统上部署CVAT（Computer Vision Annotation Tool）的完整步骤和配置方法。主要内容包括系统环境准备、安装与配置WSL2、安装与配置Docker Desktop、部署CVAT、访问与验证、常见配置与问题解决以及进阶配置（如启用自动标注）。文章提供了详细的命令和操作指南，帮助用户在Windows环境下顺利部署和使用CVAT。

2026安卓开发从零实战指南：环境搭建、核心基础与避坑干货（适配新版Android_Studio）.pdf

2026安卓开发从零实战指南：环境搭建、核心基础与避坑干货（适配新版Android_Studio）.pdf

彼岸交流群

3

已收藏

请教高手,用什么函数或方法能得到已知文件夹下的未知文件名啊?谢谢回答!! （zjn12 ）

内容如上:

复制链接

扫一扫

返回顶部

VB基础类 · 7,788 成员 · 197,583 内容

+ 关注 + 加入社区

评论 3

切换为时间正序

zyl910 2003-12-11

打赏
举报

回复

未知文件名？？？

你通过什么标准判定什么是“未知文件名”

zjn12 2003-12-11

打赏
举报

回复

谢谢,帮助,我试试

SoHo_Andy 2003-12-11

打赏
举报

回复

'查找特定路径下某种类型文件,将名称保存在数组中，Ubound(数组)的值即为文件个数
Sub aaa()
Dim strFileName() As String
Dim FileName As String
Dim j As Long
j = -1
FileName = Dir(你的路径 & "*.*")
Do While FileName <> ""
If FileName <> "." And FileName <> ".." Then
j = j + 1
ReDim Preserve strFileName(j + 1)
strFileName(j) = FileName
End If
FileName = Dir ' 查找下一个文件。
Loop
End Sub
'搜索文件夹
Public Sub ShowFloder(strDir As String, objDir As Object)
On Error Resume Next
Dim lngCount As Long
Dim i As Long
Dim strPath As String

With objDir
.Path = strDir
lngCount = .ListCount
For i = 0 To lngCount - 1
.Path = strDir

strPath = .List(i) ''取得当前子目录

'获得一个目录字符串
'可以在此调用查找文件函数

Call ShowFloder(strPath, objDir) ''递归寻找
Next
End With
End Sub