rfcr
03-03-2006, 13:50
Подскажите, каким образом заставить скрипт на VBS считывать строки из текстового файла и создавать затем файлы с именами='текст строки'?
Текстовый файл выглядит так:
master.xml
master.xml.dif
master.xml.klz
pda2005.xml
updcfg.xml
Кое что я уже пробовал но либо скрипт не хочет создавать файлы либо просто выдает ошибку когда доходит до конца файла.
P/S Может кто знает скрипт на VBS позволяющий скачивать файлы с фтп в зависимости от их даты создания?
Вот примерный код, как его можно модернизировать чтобы:
1. определить сколько раз должен пробегать цикл по файлу
2. создавались файлы, а не папки
3. Чтоб у файлов было имя = 'текст строки'
Dim i
For i = 1 To 20
MyFile.SkipLine
MyLine = MyFile.ReadLine
ArcName = Right(MyLine, Len(MyLine) - InStrRev(MyLine," "))
fso.CreateFolder(ArcName)
Next
MsgBox "создание выполнено."
Текстовый файл выглядит так:
master.xml
master.xml.dif
master.xml.klz
pda2005.xml
updcfg.xml
Кое что я уже пробовал но либо скрипт не хочет создавать файлы либо просто выдает ошибку когда доходит до конца файла.
P/S Может кто знает скрипт на VBS позволяющий скачивать файлы с фтп в зависимости от их даты создания?
Вот примерный код, как его можно модернизировать чтобы:
1. определить сколько раз должен пробегать цикл по файлу
2. создавались файлы, а не папки
3. Чтоб у файлов было имя = 'текст строки'
Dim i
For i = 1 To 20
MyFile.SkipLine
MyLine = MyFile.ReadLine
ArcName = Right(MyLine, Len(MyLine) - InStrRev(MyLine," "))
fso.CreateFolder(ArcName)
Next
MsgBox "создание выполнено."