ftp上传

写了一个小软件，把生成的txt直接传到ftp服务器上，
但是出现了问题，
如果是一个已经存在的txt可以 传上去，
但是如果是一个刚生成的txt，死活传不上去，
 Call Inet1.Execute(, "PUT  c:\aaa.txt  aaa.txt")
       Do While Inet1.StillExecuting
                DoEvents
        Loop
 MsgBox "上传完毕!", vbInformation, "提示"
 还有一个问题是，传上去的txt名字只能是规定的，
如果我想把一个  " & Environ("username") & ".txt 的  文件传上去，也传不上去，
有人知道怎么修改 吗?
         --------------------编程问答-------------------- Call Inet1.Execute(, "PUT c:\aaa.txt " & Environ("username") & ".txt) 
--------------------编程问答-------------------- 双引号好像没有配对啊
Call Inet1.Execute(, "PUT c:\aaa.txt " & Environ("username") & ".txt")

补充：VB ,  基础类