Dear All,

I’m trying to copy a file using VB 2005pro, for example: From CD to C:\vb\ Using System.IO.File.Copy(source, des, True) but everytime I get a message “Could not find a part of the path C:\VB\”

I’m getting the source using Open File Dialog, while I’m getting the destination from an ini file, using IO.StreamReader (readline)

Am I missing any step?

Appreciate your help…

Best regards,

PHENOM


>>>PHENOM<<<

__________________
>>>PHENOM<<&amp ;lt;

It would be helpful to see the copy that does the file copy.

Thearon

Dear Thearon,

sorry but i didn't get what you mean? you want to see the code?

thanks & regards,

PHENOM

>>>PHENOM<<<

Does the source destination exist? What does your code that performs the actual copy look like?

Thearon

Dear Thearon,

thanks for the reply, my code look like the one below:

Dim dat As Date
        Dim Mm As String = 0
        dat = m_DataDB.Rows(1)("sdat")
        Select Case dat.Month
            Case 1
                Mm = "Jan" & Microsoft.VisualBasic.Right(dat.Year, 2)
            Case 2
                Mm = "Feb" & Microsoft.VisualBasic.Right(dat.Year, 2)
            Case 3
                Mm = "Mar" & Microsoft.VisualBasic.Right(dat.Year, 2)
         End Select
        Dim source As String = lblImgPath.Text & m_DataDB.Rows(1)("country") & "\" & Mm & "\" & m_DataDB.Rows(1)("filename")
        Dim des As String = lblDesPath.Text

        'Check the Destination & Source
        MessageBox.Show(des)
        MessageBox.Show(source)

        Try
            System.IO.File.Copy(source, des, True)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

both Dest and Soure exist...

thanks & regards

PHENOM


>>>PHENOM<<<

I'm curious what the variables source and des contain? Can you post those? Also are you getting the date from a database?

Thearon

Dear Thearon,

Des for Destination will be like this (C:\DFB\Story\) i'm getting this from an INI file...

Source will be like this (E:\Images2005\Lebanon\Dec05\Television\0304023599 01-L14014.MPG)

i'll explain to you how i'm getting this source:

lblImgPath.Text = in this case E:\Images2005\ "From CD-Rom"
m_DataDB.Rows(1)("country") in this case = Lebanon "From DataBase"
Mm = Dec05 from the select case...
m_DataDB.Rows(1)("filename") = Television\030402359901-L14014.MPG "From DataBase"

that's how i'm getting the source
so the final shape will as shown below:
Dim source As String = lblImgPath.Text & m_DataDB.Rows(1)("country") & "\" & Mm & "\" & m_DataDB.Rows(1)("filename")

Appreciate your help…

Best Regards,

PHENOM

>>>PHENOM<<<

You are going to have to specify the filename as part of the destination. I ran a little sample which worked fine. Without the filename as part of the destination path, I encountered the same error as you did. Here's my code.

Thearon

Imports System.IO

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strSource As String = "C:\WINDOWS\Greenstone.bmp"
        Dim strDestination As String = "C:\Temp1\" & strSource.Substring(strSource.LastIndexOf("\") + 1)
        File.Copy(strSource, strDestination, True)
    End Sub
End Class

Dear Thearon,

Thank you very very much, it’s working now, I forgot to add the file name to the des, I really appreciate your help…

I have one more question, if you don’t mind…

How can I remove the ReadOnly form a file and a folder?

Thanks again

PHENOM


>>>PHENOM<<<

To remove the ReadOnly attribute from a file, use the code below. When you start dealing with folder level security things get more complex and you need to have the appropriate permissions to modify the access control rights on a folder. My suggestion would be to start small and work your way up.

Thearon

Imports System.IO

Public Class Form1

    Private Sub btnFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFile.Click
        Dim strFile As String = "C:\Documents and Settings\Thearon\My Documents\kagi\arrow.gif"
        File.SetAttributes(strFile, FileAttributes.Normal)
    End Sub
End Class