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
