Создание файла с именем другого файла
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