Копирование файлов из лога с одного диска на другой

@nrgZic · Регистрация: 28.11.2017

Студворк — интернет-сервис помощи студентам

Есть лог-файл со списком файлов,к примеру log.txt, внутри к примеру такие файлы:
C:\fim\process\trig\Amt1\old\05.2016\111 11.jrn
C:\fim\process\trig\Amt1\old\Amt1_2016.z ip
C:\fim\process\trig\Amt1\old\Amt1_2016.z ip
C:\fim\process\trig\Amt1\old\Amt1_2017.z ip
C:\fim\process\trig\Amt1\old\Amt1_2017.z ip
C:\fim\process\trig\AMT2\old\05.2016\222 22.jrn

Скрипт должен работать так:
Берёт файл из лога, проверяет путь к нему после каждой\, т.е. Сначало проверяет есть ли D:\fim, если её нет то создаёт, если есть переходит к D:\fim\process, потом к D:\fim\process\trig и т.д. пока не дойдёт до файла, если такой файл в этом каталоге не существует, то создаёт его, если нет переходит к следующему в логе и начинает копирование по тому же принципу.

FlasherX · 01.12.2017, 19:52

Visual Basic
1
2
3
4
5
6
7
8
9
10
List = "C:\fim\process\List.log"
 
Set oDrive = CreateObject("Shell.Application").NameSpace("D:")
With CreateObject("Scripting.FileSystemObject")
    Set F = .OpenTextFile(List)
    Do : Str = Trim(F.ReadLine)
        If Str <> "" Then Str = "D" & Mid(Str, 2) :_
        If Not .FileExists(Str) Then oDrive.NewFolder Mid(.GetParentFolderName(Str), 4) : .CreateTextFile Str
    Loop Until F.AtEndOfStream : F.Close
End With

@nrgZic · 19.12.2017, 09:03 **[ТС]**

Пишет следующее:
Строка: 8
Символ: 38
Ошибка: Синтактическая ошибка в имени файла, имени папки или метке тома
Код: 8007007B

Visual Basic
1
2
3
4
5
6
7
8
9
10
List = "C:\Progs\1.log"
 
Set oDrive = CreateObject("Shell.Application").NameSpace("D:")
With CreateObject("Scripting.FileSystemObject")
    Set F = .OpenTextFile(List)
    Do : Str = Trim(F.ReadLine)
        If Str <> "" Then Str = "D" & Mid(Str, 2) :_
        If Not .FileExists(Str) Then oDrive.NewFolder Mid(.GetParentFolderName(Str), 4) : .CreateTextFile Str
    Loop Until F.AtEndOfStream : F.Close
End With

FlasherX · 19.12.2017, 12:44

1. Список в ANSI?
2. Диск D: вообще существует?
3. Нет смысла цитировать код, тем более без BBCode.

@nrgZic · 19.12.2017, 16:41 **[ТС]**

Диск D: существует, а кодировку не помню, но если открыть лог то он шифрованный, поэтому использую Far Manager, для корректного отображения

FlasherX · 19.12.2017, 17:57

Так кодировку сперва узнать надо. В каком смысле "шифрованный"?

@nrgZic · 07.01.2018, 14:24 **[ТС]**

Скорее всего ошибка вылетает из-за того, что скрипт не копирует файлы из исходного места, а создаёт в конечном месте.

FlasherX · 07.01.2018, 15:39

Нет. Ошибка возникает при создании папок, а не файла. Да и системе без разницы, создавать или копировать. Вы сами в ТЗ написали "то создаёт его", а не "копирует".
С копированием так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
List = "C:\fim\process\List.log"
 
Set oDrive = CreateObject("Shell.Application").NameSpace("D:")
With CreateObject("Scripting.FileSystemObject")
    Set F = .OpenTextFile(List)
    Do : Str = Trim(F.ReadLine)
        If Str <> "" Then TFile = "D" & Mid(Str, 2) :_
        If .FileExists(Str) And Not .FileExists(TFile) Then _
        oDrive.NewFolder Mid(.GetParentFolderName(Str), 4) : .CopyFile Str, TFile
    Loop Until F.AtEndOfStream : F.Close
End With

Но это ничего не изменит. Лучше ответьте на вопросы. Что-то долго тянете с этим.

Новые блоги и статьи Все статьи Все блоги /
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .

@nrgZic 0 / 0 / 0 Регистрация: 28.11.2017 Сообщений: 7

	VBS Копирование файлов из лога с одного диска на другой 01.12.2017, 05:20. Показов 1008. Ответов 7 Метки нет (Все метки) Есть лог-файл со списком файлов,к примеру log.txt, внутри к примеру такие файлы: C:\fim\process\trig\Amt1\old\05.2016\111 11.jrn C:\fim\process\trig\Amt1\old\Amt1_2016.z ip C:\fim\process\trig\Amt1\old\Amt1_2016.z ip C:\fim\process\trig\Amt1\old\Amt1_2017.z ip C:\fim\process\trig\Amt1\old\Amt1_2017.z ip C:\fim\process\trig\AMT2\old\05.2016\222 22.jrn Скрипт должен работать так: Берёт файл из лога, проверяет путь к нему после каждой\, т.е. Сначало проверяет есть ли D:\fim, если её нет то создаёт, если есть переходит к D:\fim\process, потом к D:\fim\process\trig и т.д. пока не дойдёт до файла, если такой файл в этом каталоге не существует, то создаёт его, если нет переходит к следующему в логе и начинает копирование по тому же принципу. 0

FlasherX 6969 / 2863 / 1100 Регистрация: 06.06.2017 Сообщений: 9,719
	19.12.2017, 12:44
	1. Список в ANSI? 2. Диск D: вообще существует? 3. Нет смысла цитировать код, тем более без BBCode. 0

@nrgZic 0 / 0 / 0 Регистрация: 28.11.2017 Сообщений: 7
	19.12.2017, 16:41 [ТС]
	Диск D: существует, а кодировку не помню, но если открыть лог то он шифрованный, поэтому использую Far Manager, для корректного отображения 0

FlasherX 6969 / 2863 / 1100 Регистрация: 06.06.2017 Сообщений: 9,719
	19.12.2017, 17:57
	Так кодировку сперва узнать надо. В каком смысле "шифрованный"? 0

@nrgZic 0 / 0 / 0 Регистрация: 28.11.2017 Сообщений: 7
	07.01.2018, 14:24 [ТС]
	Скорее всего ошибка вылетает из-за того, что скрипт не копирует файлы из исходного места, а создаёт в конечном месте. 0