confused in file paths

[Rattled_Cage]

this first routine sets the file names from the commmon diaglog box

and then uploads just fine

what i want to do is click a file2 box and upload that file

but i cant seem to get the strings right to do so and am confused

can anyone see where im going wrong ?>

 
Private Sub cmdUpload_Click()
Dim lTimer As Long
Dim strRemote As String
mWait
cd.ShowOpen
File_To_Upload.Caption = Trim(cd.FileTitle) ''sets captions from common diag
File_To_Upload_Path.Caption = Trim(cd.Filename)
strRemote = Trim(File_To_Upload.Caption)
pb.Visible = True
lTimer = timer
If strRemote <> "" Then
If Not mFTP.FTPUploadFile(Trim(File_To_Upload.Caption), Trim(File_To_Upload.Caption)) Then
Console.text = ""
Console.text = Console.text & Trim(File_To_Upload.Caption) & mFTP.GetLastErrorMessage & vbCrLf
Console.text = Console.text & ">" & vbCrLf
Else
Console.text = ""
Console.text = Console.text & "Upload" & Trim(File_To_Upload.Caption) & " complete in " & Format(timer - lTimer, "###,##0.00") & " seconds." & vbCrLf
Console.text = Console.text & ">" & vbCrLf
End If
End If
pb.Visible = False
mOk
RefreshDirectoryListing
End Sub

doesnt work but the paths and file names look the same as what the first routine does

Private Sub File2_Click()
File_To_Upload.Caption = File2.Filename
File_To_Upload_Path.Caption = App.Path & "\Incoming_Files\" & File2.Filename
Dim lTimer As Long
Dim strRemote As String
strRemote = Trim(File_To_Upload.Caption)
pb.Visible = True
lTimer = timer
If strRemote <> "" Then
If Not mFTP.FTPUploadFile(Trim(File_To_Upload.Caption), Trim(File_To_Upload.Caption)) Then
Console.text = ""
Console.text = Console.text & Trim(File_To_Upload.Caption) & mFTP.GetLastErrorMessage & vbCrLf
Console.text = Console.text & ">" & vbCrLf
Else
Console.text = ""
Console.text = Console.text & "Upload" & Trim(File_To_Upload.Caption) & " complete in " & Format(timer - lTimer, "###,##0.00") & " seconds." & vbCrLf
Console.text = Console.text & ">" & vbCrLf
End If
End If
pb.Visible = False
RefreshDirectoryListing
End Sub

[4x2y]

What you get and what is should be?

What about replacing

File_To_Upload_Path.Caption = App.Path & "\Incoming_Files\" & File2.Filename

with

File_To_Upload_Path.Caption = File2.Path & "\" & File2.Filename

[Rattled_Cage]

hi 4x2 : )
that still comes back with invalid index error

ive uploaded the project
im not sure if you have an ftp upload folder to test it with

[DataMiser]

If you are getting an invalid index error that seems a bit odd as I see nothing that uses an index. Other than maybe the file list box?

What line is throwing the error?

Is there a file selected in the file list box at the time?

[Rattled_Cage]

the strange thing is here
if i select a file from out the incoming folder and send it using comondiag it sends ok
then if you send a second file by clicking the filebox it send that file though ok

it comes back with an error invalid prop value if you click the filebox fiirst though

pb.Max = lTotalBytes

[DataMiser]

I do not see that line in the code you have posted,

best guess is that your total bytes var has not been assigned a value at that time.

[jmsrickland]

I downloaded your project. I didn't get any errors nor did I look for any missing information that should have displayed but I did find a problem in two of your functions or at least it was a problem for me:

Private Sub cmdUpload_Click()
Dim lTimer As Long
Dim strRemote As String

cd.ShowOpen
File_To_Upload.Caption = Trim(cd.FileTitle) ''sets captions from common diag
File_To_Upload_Path.Caption = Trim(cd.Filename)
strRemote = Trim(File_To_Upload.Caption)
pb.Visible = True
lTimer = Timer
If strRemote <> "" Then

'Only contains file name----------------+
'If Not mFTP.FTPUploadFile(Trim(File_To_Upload.Caption), Trim(File_To_Upload.Caption)) Then

'
'This only contains the file name but should be full path ---------+
If Not mFTP.FTPUploadFile(Trim(File_To_Upload_Path.Caption), Trim(File_To_Upload.Caption)) Then
  '
  '
  '
End Sub

Public Function FTPUploadFile(sLocal As String, sRemote As String) As Boolean
    Dim Data(BUFFERSIZE - 1) As Byte
    Dim Written As Long
    Dim Size As Long
    Dim Sum As Long
    Dim lBlock As Long
    
    Sum = 0
    lBlock = 0

    sLocal = Trim(sLocal)
    
    'Note: I had to add the full path to the directory where I wanted to upload to since 
    'sRemote only containd the file name but should have the full path. 
    'See note at above Sub 
    sRemote = "/<--- full file path --->/" & Trim(sRemote)
    '
    '
    ' 
End Function

I had to add the bold red otherwise it would not upload.

[Rattled_Cage]

@jmsrickland i changed to your code

If Not mFTP.FTPUploadFile(Trim(File_To_Upload_Path.Caption), Trim(File_To_Upload.Caption)) Then

and it works when you click the file1 list now : ) thanks

i didnt change the sRemote though .....
just as a closing point what Os did you test this on
im on xp pro 64 bit and not sure how it works with all the various os`s out there

[jmsrickland]

I'm on XP Pro/SP2 32 Bit

If this app is for you only then you may not need to change sRemote but if other people who have different sites are going to use it you will need to take in account the directory structure of other sites as they vary from one to another.

Example: on my site it has to be "/root/web name/primary directory/" & sRemote and on another site of mine it's totally different