Re: [VB6 ] 如何取得檔案名稱
※ 引述《halittle (靠山山倒靠人人倒)》之銘言：
: 找了好久的文
: 還是沒有成功
: 如何把一資料夾裡的檔案名稱 Ex: D:\ftp裡的所有檔案名稱
: 全部取出到陣列
: 用DIR嗎?
: 用個範例給我瞭解一下
: 謝謝^^
'自行準備一個 Command Button，名稱=Command1
'以及一個 ListBox，名稱=List1
Private Sub Command1_Click()
Dim el, Files
Files = GetFiles("D:\ftp")
List1.Clear
For Each el In Files
List1.AddItem el
Next
MsgBox "共找到" & (UBound(Files) + 1) & "個檔案", vbInformation
End Sub
Public Function GetFiles(ByVal Path As String)
Const BufferSize As Integer = 32
Dim Files() As String, Index As Long, Length As Long
Length = BufferSize
ReDim Files(Length)
If Not Path Like "*\" Then Path = Path & "\"
Files(Index) = Dir(Path)
Do While Files(Index) <> ""
Index = Index + 1
If Index > Length Then
Length = Length + BufferSize
ReDim Preserve Files(Length)
End If
Files(Index) = Dir()
Loop
ReDim Preserve Files(Index)
GetFiles = Files
End Function
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半點癡情遺留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多悽悽慘慘的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.184.116.195
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 3 之 3 篇)：
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章