关于FTP控件的急救问题！！！！！！

[leng_cn]

各位大侠，我要用FTP的命令查找服务器上的一个目录，如果没有此目录则新建，
有则转入此目录，可是我用如下代码查找确停止不动，也没有返回值，请大侠指
点指点：
UpInet.Execute , "DIR /aa"

While Not UpInet.StillExecuting

DoEvents

Wend
Private Sub UpInet_StateChanged(ByVal State As Integer)

If State = 12 Then
select case command
case "DIR"
tmpdir = UpInet.GetChunk(0)
if tmpdir="" then

UpInet.Execute , "MKDIR " & strtmpdir

While UpInet.StillExecuting

DoEvents

Wend
为什么我得不到tmpdir的值了？？？并且不能停止？？？？？