Используется метод Move класса File
MoveTo класса FileInfo
Sub Move (ByVal source FileName As String, ByVal dest FileName As String)
Sub MoveTo (ByVal dest FileName As String)
Пример: берём какой-то файл, указываем с одного диска на другой. Создать консольное приложение. Мы должны сначала сделать процедуру импортирования.
Imports.System.IO
Module Module1
Dim sourceFileName As String =”C:\MyFile.txt”
Dim destFileName As String =”D:\MyFile.txt”
Sub Main()
Dim FileInfo As New FileInfo(sourceFileName)
MoveFile(FileInfo)
End Sub
Sub MoveFile(ByVal fileInfo As FileInfo)
Console Clear()
If fileInfo.Exists()
If Not File.Exists(destFileName)Then
fileInfo.MoveTo(destFileNAme)
Else
Console.Writeline(“файл не существует”, destFileName)
End If
Else
Console.WriteLine(“файл не существует”, fileInfo, FullName)
End If
End Sub.
