作者ncuandy (0.0)
看板Visual_Basic
标题[VB6 ] 可以帮我修改一下吗?
时间Wed Jan 20 01:31:19 2010
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
1F：→ MOONRAKER:请洽codejob版 01/20 13:37