Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - WSH Работа с файловой системой :o

Ответить
Настройки темы
VBS/WSH/JS - WSH Работа с файловой системой :o

Новый участник


Сообщения: 5
Благодарности: 0

Профиль | Отправить PM | Цитировать


Помогите, пожалуйста

Необходимо объединить три файла с заданными именами в один и скопировать этот файл в заданный каталог;
Далее выдать на экран перечень всех подкаталогов заданного каталога.

Заранее благодарю!

Отправлено: 15:10, 21-12-2011

 

Пользователь


Сообщения: 148
Благодарности: 39

Профиль | Сайт | Отправить PM | Цитировать


Код: Выделить весь код
copy /?
указываете нужные файлы через + и в конце через пробел результирующий.
Код: Выделить весь код
dir /?
dir каталог ключ
Ключ /a а за ним нужный фильтр найдете в справке

-------
Alex Dragokas


Отправлено: 01:30, 22-12-2011 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Пользователь


Сообщения: 78
Благодарности: 22

Профиль | Отправить PM | Цитировать


Код: Выделить весь код
Option Explicit

Dim oFSO, oFile, oFile1, oFile2, oFile3, Var, Var1, Var2, sFile, sname, sfolder, SubFolder, msg 

Set oFSO = CreateObject ("Scripting.FileSystemObject")
Set oFile = oFSO.OpenTextFile("1-й файл.txt",1) 
Set oFile1 = oFSO.OpenTextFile("2-й файл.txt",1) 
Set oFile2 = oFSO.OpenTextFile("3-й файл.txt",1) 
Set oFile3 = oFSO.OpenTextFile("Результат.txt",2,True) 

Var = oFile.ReadAll
oFile.Close 
Var1 = oFile1.ReadAll 
oFile1.Close 
Var2 = oFile2.ReadAll
oFile2.Close
oFile3.WriteLine Var
oFile3.WriteLine 
oFile3.WriteLine Var1
oFile3.WriteLine 
oFile3.WriteLine Var2
oFile3.Close 

sFile   = "Путь\к\Результат.txt"
sname   = oFSO.GetFileName(sFile)
sfolder = "Путь\к\заданному\каталогу"
ofso.CopyFile sFile, sfolder & "\" & sname

ShowSubFolders oFSO.GetFolder(sfolder)

Sub ShowSubFolders(Folder)
    For Each Subfolder in Folder.SubFolders
        msg = msg & Subfolder.Name & vbcrlf 
    Next
    wscript.echo msg 
End Sub

WScript.Quit

Отправлено: 20:48, 22-12-2011 | #3



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - WSH Работа с файловой системой :o

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Flash - Flash MicroSD 16GB с файловой системой RAW ejsamogon Накопители (SSD, HDD, USB Flash) 19 19-11-2011 22:21
HDD - Проблема с файловой системой внешнего HDD serick Накопители (SSD, HDD, USB Flash) 4 16-07-2011 21:56
Неустранимые проблемы с файловой системой michel-nk Microsoft Windows NT/2000/2003 7 29-09-2006 14:55
Работа с файловой системой CD-ROM RW DVD-ROM RW в Windows Andrik Microsoft Windows NT/2000/2003 6 12-01-2006 11:28
Проблема с файловой системой. PDV Хочу все знать 3 24-07-2004 23:25




 
Переход