- Исходный и конечный пути должны иметь одинаковые корни. Перемещение не будет работать по всем объемам
Я хочу переместить весь файл .emb из pendrive (drive i:) в папку, называемую (C:\To) . я получаю все файлы .emb в EmbFile, но когда я привязываю к перемещению thid-файлов, я получаю ошибку ("исходный и конечный пути должны иметь одинаковые корни. Перемещение не будет работать по всем объемам) Я много пробовал, но ничего не решал. может ли кто-нибудь помочь мне выбраться из этого?
я уже упоминал свой код ниже.
Что я уже пробовал:
Система Импорта.ИО
FRM_Main Открытый Класс
Частная суб FRM_Main_Load(отправителя как объект, а равно EventArgs) обрабатывает ключевое слово mybase.Загрузить
Dim Copy_From As String = "I:"
Dim Copy_To As String = "C:\To"
Попробуй
Dim EmbFiles = Каталог.EnumerateFiles(Copy_From, "*.Emb", SearchOption.AllDirectories)
Для каждого currentFile как строку в EmbFiles
Dim fileName = currentFile.Подстрока(Copy_From.Длина + 1)
Directory.Move(Путь.Combine(currentFile, fileName), Path.Комбинат(Copy_To, именем))
Следующий
Поймать Ex Как Исключение
Приставка.WriteLine(Напр.Сообщение)
Конец Попытки
Конец Подводной Лодки
End Класса