رسالة خطا illegal charachter in path عندج نسخ ملف من جهاز الى جهاز اخر

هذا كود خاص بنسخ ملف من علي السيرفر الموجود علي الشبكة الي الديسك التوب الخاص بأي جهاز يقوم بتنفيذ هذا الامر

Private Sub BtnCopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCopy.Click
        Try
            Dim dir As String
            dir = "\\dataserver\AXconfig\New Axapta Live.axc"

            My.Computer.FileSystem.CopyFile( _
        dir, System.Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "\" & My.Computer.FileSystem.GetName(dir), _
             Microsoft.VisualBasic.FileIO.UIOption.AllDialogs, _
             FileIO.UICancelOption.ThrowException)

            MsgBox("New Axapta Live.axc copied successfully !!!", MsgBoxStyle.Information, "Development by IT Professionals")

            '  End If

        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Information, "Warning")
        End Try
    End Sub

جزاك الله خيرا بس انت مافهمتنى يا اخى

شوف

الكود ده

.

انا عايزه كتالى

dir = "\\dataserver\AXconfig\New Axapta Live.axc"

dri="\\" + lbl_serverip +"\AXconfig\New Axapta Live.axc"

بحيث

lbl_serverip

سوف يكتب مكانها الابى حق الجهاز الاخر بمثال

form1.lbl_serverip .Text="192.196.1.6"

محمد فؤاد تركي كتب:

هذا كود خاص بنسخ ملف من علي السيرفر الموجود علي الشبكة الي الديسك التوب الخاص بأي جهاز يقوم بتنفيذ هذا الامر

Private Sub BtnCopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCopy.Click
        Try
            Dim dir As String
            dir = "\\dataserver\AXconfig\New Axapta Live.axc"

            My.Computer.FileSystem.CopyFile( _
        dir, System.Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "\" & My.Computer.FileSystem.GetName(dir), _
             Microsoft.VisualBasic.FileIO.UIOption.AllDialogs, _
             FileIO.UICancelOption.ThrowException)

            MsgBox("New Axapta Live.axc copied successfully !!!", MsgBoxStyle.Information, "Development by IT Professionals")

            '  End If

        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Information, "Warning")
        End Try
    End Sub

طيب يا اخى ممكن توضحلى

من

و

الى

فى الكود السابق

وجزاك الله خيرا

من

dir = "\\192.196.1.6\AXconfig\New Axapta Live.axc"

حيث 192.196.1.6 رقم IP الجهاز الذي يحتوي علي الملف المراد نقلة

AXconfig هذا اسم المجلد الموجود علي السيرفر والذي يحتوي علي الملف المراد نقلة

New Axapta Live.axc هذا اسم الملف نفسة بالامتداد الخاص به الذي سيتم نقلة الي الاجهزة الاخري

الي

 My.Computer.FileSystem.CopyFile( _        dir, System.Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "\" & My.Computer.FileSystem.GetName(dir), _             Microsoft.VisualBasic.FileIO.UIOption.AllDialogs, _             FileIO.UICancelOption.ThrowException)

حيث DesktopDirectory المكان الذي سينتقل اليه الملف وهو الديسك توب الخاص بالمستخدم

ايضا سيتم استخدام وتشغيل هذه الجملة بعد الانتهاء منها من علي جهاز المستخدم وليس جهاز السيرفر

اتمني ان يكون الكلام واضح