永发信息网

vb编写怎么获取一个文件夹里面所有的文件的文件名?可否用LOOP函数循环获取

答案:2  悬赏:10  手机版
解决时间 2021-04-08 01:57
如我需要获取D:\123文件夹里面所有文件的文件名,放在一个记事本文件里面,源码需要怎么写?
最佳答案
Dim d As String
Open App.Path & "\123.txt" For Output As #1
d = Dir("d:\123\*.*")
Do Until d = ""
    Print #1, d
    d = Dir
Loop
Close #1
全部回答
do while ... loop和while ... wend没区别,完全一样,先判断条件再运行循环体。 do ... loop while就不一样了,先运行再判断
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
—Thank you for coming to help us. &n
麻雀幼崽吃什么,饥荒联机版火蜻蜓幼崽能长大
在设计数据库时怎样实现学生和老师这两个实体
男女朋友之间的房事是不是可以促进男女朋友之
求 火影之最强查克拉
感谢烘培师傅的句子
柳州有什么辣的好吃的小吃
去泰国的签证怎么办,南京泰国签证在哪里办?
南岳西路/联合巷(路口)在哪里啊,我有事要去
已知一个七棱柱的底面棱长都是2,侧棱长为6,
火腿中的火是什么意思
请问《剑谍》中日本军官小泉的扮演者是谁?
YY 怎么让一个人放歌 另外一个人说话 不产生
我的世界神殿怎么找,我的世界里 怎么找到丛林
我想买纯娘酒
推荐资讯
Afterthreeyearsofpreparationforthe2011Xi’
谁有全屋定制营销话术?
单选题1127年时的宋朝年号应该是A.贞观B.开元
单选题已知函数f(x)=2x-1,那么它的反函数y
男人为什么喜欢漂亮女孩?
讲一下你在美国发生的趣事!(一定要突出美国
汤姆先生在什么地方啊,我要过去处理事情
什么歌中间带人字有六个字
梦见自己给情人洗衣服情人又给她老婆洗
被最爱的人背叛的句子,最多愁的人 求一个诗句
月经推迟且量少,月经期间可以喝益母草颗粒吗
然后吃早餐英语怎么说,一直向前走,然后向左
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?