28,390
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
hbjmdx008 2005-04-14
- 打赏
- 举报
在VB 下
可以用
funtion myDir()
dim str as string
str =dir("app.path\*.*",16)
do
if str<>"" then
print str
else
exit do
end if
str=dir()
loop
end sub
可以用
funtion myDir()
dim str as string
str =dir("app.path\*.*",16)
do
if str<>"" then
print str
else
exit do
end if
str=dir()
loop
end sub
