Path/File Access Error

[paralinx]

Hi all,

I am trying to move files from one folder to another with my program. How I am doing it is the user clicks the file in the file list box and then clicks Copy, then clicks a folder name in a listbox. But it gives me the error "Path/File Access Error"

Here is my code

Private Sub cmdCopyTo_Click()
    If File1.ListIndex < 0 Then
        MsgBox "No Selected Songs.", vbCritical
        Exit Sub
    End If
    sFileName = File1.Path
    If Right$(sFileName, 1) <> "\" Then
        sFileName = sFileName & "\"
    End If
    sFileName = sFileName & File1.Filename
    MsgBox "Select Folder to send files to.", vbInformation
    blnCopy = True
End Sub
 
Private Sub lstSetupAr_Click()
    Dim dir As String
    If blnCopy Then
        lstSetupDire.ListIndex = lstSetupAr.ListIndex
        [COLOR=Red]FileCopy sFileName, lstSetupDire.Text[/COLOR] 'Error Line
        blnCopy = False
        Exit Sub
    End If
End Sub

[MartinLiss]

Have you defined sFileName someplace?

[paralinx]

Yes as a string in general declarations

[Keithuk]

Thats probably because a FileListBox only shows FileNames, you need to use a DirListBox as well to find its path.

[paralinx]

File1.Path will give you the path that the file list box is showing

[MartinLiss]

Yes as a string in general declarations

Ok, that's good but you might want to start the names of form-level variables with "m" the name might better be msFileName.

[paralinx]

Ok, that's good but you might want to start the names of form-level variables with "m" the name might better be msFileName.

Oh ok sorry, what does the M stand for though?

[Keithuk]

File1.Path will give you the path that the file list box is showing

Yes File1.Path will show the App.Path but if you want to copy these files to another location how are you finding this new path?

FileCopy sFileName, lstSetupDire.Text 'Error Line

What is in lstSetupDire? The filename and path?

[paralinx]

Yes File1.Path will show the App.Path but if you want to copy these files to another location how are you finding this new path?

FileCopy sFileName, lstSetupDire.Text 'Error Line

What is in lstSetupDire? The filename and path?

that's the listbox that shows the directory of the file I want to copy it to.

[dglienna]

You must also include the filename in the destination location. It's not like DOS, which uses the original name in a copy statement. Don't forget the "\"

[paralinx]

I stepped through my program and looked at the variables and they equal the correct directory and file names

[dglienna]

Use a debug.print statement for each file, you can't really see the full path in the tool tip. It may be missing the "\" or have an extra one on the end.

[paralinx]

No, they are perfectly fine here's what comes up in the debug window

C:\Documents and Settings\Owner\Desktop\My Stuff\Music\Led Zeppelin\Achilles last stand.mp4
C:\Documents and Settings\Owner\Desktop\My Stuff\Music\Led Zeppelin

[jcis]

You are not specifying the destination filename
Try this:

FileCopy sFileName, lstSetupDire.Text & sFileName

[paralinx]

Oh yeah! I've gotta include what the new copied file name will be.

Thanks a lot jcis

[dglienna]

You must also include the filename in the destination location. It's not like DOS, which uses the original name in a copy statement. Don't forget the "\"

Did you miss that?

[paralinx]

Oh sorry, I didn't even see that post

[MartinLiss]

Oh ok sorry, what does the M stand for though?

Nothing to be sorry about, but part of the normal convention for naming files includes m or m_ for module-level (meaning form-module-level) variables and g or g_ for global (meaning those defined at the top of code modules). That way you 6 months from now or someone maintaing your program will know the scope of the variable by just looking at the name.