06-04-15, 01:08 AM
الله لا يهينك لكن المقصد هو انا عندي كود اضافة ملف الى المشروع واستخراجة في مكان معين :
مثال
(استدعاء واستخراج الملف في مكان ما)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
On Error Resume Next
Dim value As Byte()
My.Computer.FileSystem.DirectoryExists("c:\test")
value = My.Resources.test
My.Computer.FileSystem.WriteAllBytes("c:\test", value, True)
Dim NewProcess As Process = New Process
End Sub
( نقل الملف )
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim fi As New FileInfo("c:\test")
fi.MoveTo("d:\test")
End Sub
الكود لا يقبل ملفات اخرى مثل reg او exe او اي صيغة اخرى ، اريد كود يتعامل مع هذا النوع من الملفات .
مثال
(استدعاء واستخراج الملف في مكان ما)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
On Error Resume Next
Dim value As Byte()
My.Computer.FileSystem.DirectoryExists("c:\test")
value = My.Resources.test
My.Computer.FileSystem.WriteAllBytes("c:\test", value, True)
Dim NewProcess As Process = New Process
End Sub
( نقل الملف )
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim fi As New FileInfo("c:\test")
fi.MoveTo("d:\test")
End Sub
الكود لا يقبل ملفات اخرى مثل reg او exe او اي صيغة اخرى ، اريد كود يتعامل مع هذا النوع من الملفات .
