1樓：匿名使用者
dim spath as string
dim sa as string
dim sfile as string
spath = text1
sa = dir(spath, vbnormal)do while sa <> ""
sfile = sfile & " " & sasa = dir()
loop
text2=sfile
2樓：無業の學生
這個妥，如果是vb6，你先拖三個控制元件，分別是command1,text1和text2
text2需要multiline==true
只需要在command1_click裡輸入下面**就行
private sub command1_click()
on error resume next
text2.text = ""
shell ("cmd /c dir " + text1.text + " /b >>c:\1.txt")
open "c:\1.txt" for input as #1
do until eof(1)
line input #1, s
text2.text = text2.text + s + chr(13) + chr(10)
loop
close #1
kill "c:\1.txt"
end sub
哈哈，這個方法給我自己嚇哭了，不過放心肯定沒問題，不需要了解任何vb處理檔案的機制，用cmd執行一次dir /b命令即可，老少皆宜
3樓：匿名使用者
private sub command1_click()text2.text = ""
file1.path = text1.textfor i = 0 to file1.
listcount - 1text2.text = text2.text & file1.
list(i) & vbcrlf
next
end sub
不想加分號就這樣
private sub command1_click()text2.text = ""
file1.path = text1.text & ":\"
for i = 0 to file1.listcount - 1text2.text = text2.text & file1.list(i) & vbcrlf
next
end sub
怎麼樣才可以讓頭髮快點生長，怎麼樣才可以讓頭髮長得快一點？
如果想讓頭髮長快,可以在平時膳食中多吃 黑芝麻,黑大豆,海帶,核桃等,補充夠頭髮生長所需要的營養就可以了。如果你的頭髮某一個區域被你扯斷了很多，市面有產品可以使你的頭髮長得比較快。例如資生堂有個長青產品叫 不老林 用它來搽頭皮，頭髮會長得快又濃密。另外，想讓頭髮快速生長可以使用含有海藻成分的洗髮精，...
怎麼樣才可以讓臉變白 怎麼樣可以讓臉變白
很簡單，直接在臉上塗上麵粉就可以了！流乾體內的血如何？怎麼樣可以讓臉變白 這個你可以多用 多用一些潤膚乳和洗面奶，還有精華液。勤防曬 一年四季都要防曬 塗防曬霜 夏季還要加上物理防曬 打遮陽傘等 使用美白類的產品。首先要記得塗防曬霜 變白的話，我用的是膠原蛋白，可以抑制體內黑色素，對 也沒有 對胃粘...
怎麼樣可以讓女人徹底愛上你，怎麼樣可以讓一個女人徹底愛上你？
真正想要一來 個人真心的愛上你 其源實並不難。最重要你bai有沒有真的用心du去給予對方愛。zhi要讓一個人愛上你，dao首先你得付出很多很多。不顧一切的愛才能換來一個人對你的愛。堅持也是很重要的。相信你的堅持和你對她不顧一切的愛一定能打動那個女人，然後徹底愛上你。你覺得兩個人 抄一週工作辛苦，週末...