sent file to ftp

[Norkis]

hi,

how to sent file to ftp using internet transfer control or api.

I use this:

Dim k As Long, j As Long, aSend As String
aCmd = "PUT"

aFile = Space$(MAX_PATH)
aSend = "c:\Program Files\NSO\text.txt"
j = GetShortPathName(aSend, aFile, MAX_PATH)
aFile = Left$(aFile, j)
For j = Len(aSend) To 1 Step -1
Select Case Mid$(aSend, j, 1)
Case "/", "\", ":"
aSend = Mid$(aSend, j + 1)
Exit For
End Select
Next
j = InStr(aSend, " ")
Do While j
Mid$(aSend, j, 1) = "_"
j = InStr(j, aSend, " ")
Loop
Inet1.Execute , "PUT " & aFile & " " & aSend
Do While Inet1.StillExecuting: DoEvents: Loop

but this not works... :(

can anybody help me ?

Andrius