例如 
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寸入另一个变量,或者存入数组也行,关键是怎么存入变量