Создание файла с именем другого файла

Материал из TCKB 2.0

Перейти к: навигация, поиск
Q: Помогите, нужен скрипт, который бы создавал в текущей папке текстовый файл с именем имеющегося файла, но с другим расширением.
A: Скрипт:
'==========================================================================
' Создание в текущей папке для всех файлов с указанным расширением
' аналогичного файла с другим указанным расширением

' В параметрах вызова из TC должно быть прописано:
' %P {расширение исходных файлов} {расширение создаваемых файлов}
' Пример:
' %P mp3 txt
'==========================================================================
Dim MB
If WScript.Arguments.Count < 3 Then
MB = MsgBox("Заданы не все параметры!", vbOKOnly + vbExclamation, "Создание новых файлов")
WScript.Quit
End If

Dim FSO, CurrentFolder, Ext1, Ext2, oFolder, oFile, NewFilePath, oNewFile
Set FSO = CreateObject("Scripting.FileSystemObject")

CurrentFolder = WScript.Arguments(0)
Ext1 = WScript.Arguments(1)
Ext2 = WScript.Arguments(2)

If not FSO.FolderExists(CurrentFolder) Then
MB = MsgBox("Папка " & CurrentFolder & " не существует!", vbOKOnly + vbExclamation, "Создание новых файлов")
WScript.Quit
End If

Set oFolder = FSO.GetFolder(CurrentFolder)

For Each oFile in oFolder.Files
If FSO.GetExtensionName(oFile.Path) = Ext1 Then
NewFilePath = CurrentFolder & FSO.GetBaseName(oFile.Path) & "." & Ext2
If not FSO.FileExists(NewFilePath) Then
Set oNewFile = FSO.CreateTextFile(NewFilePath)
oNewFile.Close
End If
End If
Next

Set oFolder = Nothing
Set oFile = Nothing
Set oNewFile = Nothing
Set FSO = Nothing
Wscript.Quit

В параметрах кнопки (команды) надо указать 3 параметра, например:

%P mp3 txt


Batya

Личные инструменты
Реклама
Задай вопрос! Юристы
law-eas.ru
берет мчс нового образца
sewingru.ru