例如
Private Sub downloadfile()
Dim str As String
With Inet1
.URL = "ftp://192.168.1.211/"
.UserName = "limin"
.Password = "limin"
.Execute , "dir /limin/"
debug.print .GetChunk(1024, icString)
Do While Inet1.StillExecuting
DoEvents
Loop
.Execute , "quit" '关闭连接
End With
End Sub
程序运行得到的结果为
./
../
20060306.txt
20060307.txt
怎么办才能把20060306寸入一个变量,把20060307寸入另一个变量,或者存入数组也行,关键是怎么存入变量
Private Sub downloadfile()
Dim str As String
With Inet1
.URL = "ftp://192.168.1.211/"
.UserName = "limin"
.Password = "limin"
.Execute , "dir /limin/"
debug.print .GetChunk(1024, icString)
Do While Inet1.StillExecuting
DoEvents
Loop
.Execute , "quit" '关闭连接
End With
End Sub
程序运行得到的结果为
./
../
20060306.txt
20060307.txt
怎么办才能把20060306寸入一个变量,把20060307寸入另一个变量,或者存入数组也行,关键是怎么存入变量
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货