VFP 愛用者社區

[李上千]

我知道可以用file()得知某個檔案是否存在，但是請問要如何才能將某個目錄中所有的檔案名稱都抓出來。

謝謝！

[syntech]

txt = "dir c:\windows >c:\a.txt "

run (txt)

c:\a.txt 就是答案




===
去弄一張 函式 列表.

[ckp6250]

syntech大大專教奧步

[tigerlee39y]

另有類似的功能
=getfile()

[小賴]

方法一
oFs = CreateObject("Scripting.FileSystemObject")
oFold = oFs.GetFolder("C:\Temp")
FOR EACH oFile IN oFold.Files
? oFile.Name
NEXT


方法二
nCount = ADIR(aFile, "C:\Temp\*.*")
FOR i = 1 TO nCount
? aFile[i, 1]
NEXT

[syntech]

每次都 ADIR() 就無聊了. XD

[LiuRambo]

[syntech]

日片常常說,

"人有無限的可能性"

所以朝這方面努力.

[李上千]

感謝大家的回答。原來有adir()這麼好用的函數。
說實在的剛看到syntech大大的回答時，真的有點傻眼了。
還懷疑真的是這樣嗎？
各位大大真的還蠻幽默的。

[LiuRambo]

請不要懷疑syntech大的答案
雖人有可能故意藏陷阱，但一定是可行的

指令不熟請沒事多看help
找找論壇內有vfp9中文版help
安裝進去就可以看個清楚

[jurgen]

但 adir 是有限制的啊

[syntech]

就和醉拳或是獨孤九劍一樣,招式怪異,卻攻其所必救.

[小桑•無痕]