Move(Source: String; Destination: String);
Move(Source: string; Destination: string);
Source. Путь до файла, который будет перемещён;
Destination. Путь до папки, в которую будет перемещён файл.
Метод Move осуществляет перемещение файла.
Метод осуществляет перемещение файла Source в папку Destination. Если файл в целевой папке уже существует, то произойдёт его перезапись.
Для выполнения примера необходимо наличие файла C:\New_folder\1.txt и папки C:\Temp.
Добавьте ссылки на системные сборки:
для примера на Fore: IO;
для примера на Fore.NET: ForeIO, Metabase.
Sub UserProc;
Begin
// Если файл и папка существуют, то переместим файл
If File.Exists("c:\New_folder\1.txt") And Directory.Exists("c:\Temp") Then
File.Move("c:\New_folder\1.txt", "c:\Temp");
End If;
End Sub UserProc;
Imports Prognoz.Platform.Interop.ForeIO;
Imports Prognoz.Platform.Interop.Metabase;
…
Public Shared Sub Main(Params: StartParams);
Var
FileCls: IFile = New FileClass();
DirectoryCls: IDirectory = New DirectoryClass();
Begin
// Если файл и папка существуют, то переместим файл
If FileCls.Exists("c:\New_folder\1.txt") And DirectoryCls.Exists("c:\Temp") Then
FileCls.Move("c:\New_folder\1.txt", "c:\Temp");
End If;
End Sub;
После выполнения примера файл 1.txt будет перемещён в папку C:\Temp.
См.также: