[VB6 ] 可以幫我修改一下嗎?
Private Sub Form_Load()
Dim a(2) As String 'a陣列
Dim b(1) As String 'b陣列
Dim x As String
Dim i As Integer
Dim j As Integer
a(0) = "NST"
a(1) = "Taiwan"
a(2) = "Taipei"
b(0) = "TY22"
b(1) = "TP134"
For i = 0 To 2
For j = 0 To 1
x = Dir("E:\dataftp\uucard\" + a(i) + "\" + b(j) + "\*.doc") '回傳資料夾內的檔名
Debug.Print x '印出X
Do While x <> "" '做到X不等於空字串
If x = "" Then Exit Do '當X為空字串，則跳出迴圈
x = Dir '把路徑Dir給x變數
Loop
Next
Next
End Sub
以上為找到資料夾的檔名。
可以幫我改成，直接去抓E:\dataftp\uucard\
然後抓到的第一層，指給a()陣列(共三個
第二層，指給b()陣列(共兩個
在抓取底下的DOC檔。 謝謝
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.133.64.207
→
01/20 13:37, , 1F
01/20 13:37, 1F