18-01-17, 04:14 PM
التغيير يكون على هذا السطر
[align=left]
ليصبح هكذا
[align=left]
[align=left]
كود :
IO.File.WriteAllBytes(IO.Path.GetFileName(filename), data)
[/align]ليصبح هكذا
[align=left]
كود :
Dim targetFilename as string
targetFilename = My.Application.Info.DirectoryPath & "\myfile\" & IO.Path.GetFileName(filename)
IO.File.WriteAllBytes(targetFilename , data)
[/align]

