WSH Работа с файловой системой :o
Помогите, пожалуйста :o
Необходимо объединить три файла с заданными именами в один и скопировать этот файл в заданный каталог;
Далее выдать на экран перечень всех подкаталогов заданного каталога.
Заранее благодарю! ;)
|
указываете нужные файлы через + и в конце через пробел результирующий.
Код:
dir /?
dir каталог ключ
Ключ /a а за ним нужный фильтр найдете в справке
|
Код:
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
|
Время: 09:46.
© OSzone.net 2001-
