Gadnammit, This should work!

[CyberSurfer]

..I think...

Anyway, here's the story. I'm using the Inet Transfer control to upload a file to a remote server via FTP. When I use this line of code, the file uploads fine:

inetFTPTest.Execute , "PUT C:\ftptest\config\ftptest.bok /htdocs/ftptest.bok"

but when I attempt to use App.Path in this line, ie

inetFTPTest.Execute , "PUT " & App.Path & "\config\ftptest.bok /htdocs/ftptest.bok"

The file will not upload. Am I using App.Path incorrectly? Won't App.Path work with the Inet control?

Help Me Please!

Thanks in advance...

[peet]

is App.Path the same as C:\ftptest ?

and do you get any errors ?

[Medicus]

I don't think you are using the App.Path correctly.

Check for the Admin Path. I think. The App.Path is probably looking in your machine.

The C: is hardcoded in your source.

Let me know if that helps.

[ExplosiveNewt]

Are you doing error checking? if so what error are you getting also. try doing on the line before
MyTempFile = "PUT " & App.Path & "\config\ftptest.bok /htdocs/ftptest.bok"
inetFTPTest.Execute , MyTempFile

I Think this has happened to me and that fixed it

[CyberSurfer]

Newt, I've tried what you suggested, and it didn't work. Also, no errors are being returned, which makes me wonder what exactly is happening.

peet and Medicus, App.Path specifies the directory from which the program is being run, on my machine.

Any other ideas, Guys?

[peet]

Originally posted by CyberSurfer
.... App.Path specifies the directory from which the program is being run, on my machine.

yes, i understand, I was wondering if the app.path might contain spaces or folders with more tha 8 chars ... something that differs from C:\ftptest

[CyberSurfer]

Good point. In actual fact App.Path is longer than 8 chars, and contains spaces. I just put C:\ftptest to save me typing out the whole path.

Does this tell you what I'm doing wrong?

[peet]

Its just a thought, I'v experienced this kind of strange behavior when using the shell function. It doesnt give an error, and nothing happens ... like in your case.

just to make sure... move the exe to a folder like the one you used in the sample, and see what happens ...

huh.. Its a long shot, but what do you have to loose

[peet]

also add a msgbox showing you the content of App.Path when running the exe....

[CyberSurfer]

Thanks peet!

The message box listes App.Path as

C:\Jonathans Bits n' Pieces\Visual Basic\Projects\Booking System

and the program worked when I moved the exe to C:\ftptest.

Any ideas how to get the program to work from directories including spaces et al?

[peet]

try using " "

[peet]

inetFTPTest.Execute , "PUT " & """" &  App.Path  & "\config\ftptest.bok & """" /htdocs/ftptest.bok"

[CyberSurfer]

Nope, that still doesn't work...

[peet]

notice ...

I misplaced the last & """" at first.. I'v changed it....

if you already noticed... try single quot "'" instead ...

[peet]

hmm... I'm just guessing here.... (but u probl. noticed that already)

[parksie]

GetShortFileName?

[peet]

good Idea parksie

Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal lBuffer As Long) As Long

Public Function GetShortPath(strFileName As String) As String
Dim lngRes As Long, strPath As String
'Create a buffer
strPath = String$(165, 0)
'retrieve the short pathname
lngRes = GetShortPathName(strFileName, strPath, 164)
'remove all unnecessary Chr$$(0)'s
GetShortPath = Left$(strPath, lngRes)
End Function

[CyberSurfer]

Back in an hour...I'll try it then..

[peet]

nice avatar parksie

[parksie]

Hehe thanks

[Medicus]

Did everybody just get out of bed ?

Where the hell have you been when I was figthing for the Life of "oops, another one".

Arrrggghhh...

[peet]

huh... Medicus ?? need help? ...

[Medicus]

I called the freakin guy in India @ 1.75$ a minute.

Everybody needs help!

Don't make me start on this...

[Medicus]

peet, I like you a lot.

Hey, I don't say that to everybody. Even if you are a female, I'll like you anyway...

Love xxx

Bert

[peet]

god damn Medicus your scary

[Medicus]

Just keep your hands in your pants and everything will be ok.

[peet]

what make you think I'm wearing any ??

[Medicus]

Just your tone of voice and the fact that your are only using one hand.

[CyberSurfer]

Not being very familiar with the use of API and suchlike fun-ness, I'm not exactly sure what I'm supposed to do with GetShortFileName, and how it solves my problem. Any help?

[peet]

dim sFTPCommand As String

sFTPCommand = "PUT " & GetShortPath(App.Path & "\config\ftptest.bok) & " /htdocs/ftptest.bok"
inetFTPTest.Execute , sFTPCommand

the GetShortPath function returns the path in the ~1 style

eg c:\progra~1\myapp\app.exe

[CyberSurfer]

Superb! It works

Thanks to Parksie, and especially peet..

[peet]

any time CyberSurfer