QB关于文件的读取 — 编程爱好者社区

您所在位置：社区首页 — QBasic讨论区 — QB关于文件的读取

主题：QB关于文件的读取

xyaxw [专家分：40] 发布于 2005-02-04 14:32:00

怎样用QB来读取一个目录下的所有文件名
并将这些文件名保存在一个字符串里

11 楼

xyaxw [专家分：40] 发布于 2005-02-15 14:32:00

DIM a AS STRING * 20
OPEN "a.out" FOR OUTPUT AS #1
a = DIR$("*.*")
PRINT #1, a
WHILE (LEN(a) <> 0)
a = DIR$
PRINT #1, a
WEND
CLOSE #1
END

请解释一下好吗

12 楼

staa [专家分：3690] 发布于 2005-02-18 10:33:00

请楼主着重看看3楼的方法。

13 楼

QB71 [专家分：1300] 发布于 2005-02-18 16:36:00

第一次调用DIR$时:
Tmp$=Dir$(Path$+"\*.*")
函数返回一个文件名
其中:Path$是给出的路径
"*.*"像DOS的dir命令一样
再次调用时:
Tmp$=dir$
返回一个匹配上一次的文件名

14 楼

xyaxw [专家分：40] 发布于 2005-03-05 15:07:00

那么怎么找到文件夹

您尚未登录，请登录后再回复。点此登录或注册