Удаление файлов определенного расширения

@Alexandr1966 · Регистрация: 17.12.2012

Author24 — интернет-сервис помощи студентам

Всем привет. Есть задание, которые необходимо сделать, но никак не получается)
Программа должна обрабатывать аргументы командной строки, либо, при их отсутствии, предлагать диалог ввода. Протокол работы ведется как в текстовом файле, так и во внешнем приложении – Ms Word или Excel.
Задание вот:
Удаление файлов определенного расширения, Поле ввода расширения, вывести в Excel.
Буду благодарен)))

@asidorchenko · 25.12.2012, 19:14

1.wsf

PHP/HTML

<job id="IncludeExample">
   <script language="VBScript">
      Set FSO = CreateObject("Scripting.FileSystemObject")
      i = 0
      For Each Argument In WScript.Arguments
       FSO.DeleteFile Argument, 0
       i = i+1
      Next
 
      if i=0 then
       y = Inputbox("file")       
       FSO.DeleteFile y, 0
      end if
   </script>
</job>

Удаление всех файлов определенного расширения задается маской *
например C:\*.txt

Excel и Word у меня нет.

@Alexandr1966 29 / 29 / 2 Регистрация: 17.12.2012 Сообщений: 493
		1
	Удаление файлов определенного расширения 25.12.2012, 10:14. Показов 2923. Ответов 1 Метки нет (Все метки) Всем привет. Есть задание, которые необходимо сделать, но никак не получается) Программа должна обрабатывать аргументы командной строки, либо, при их отсутствии, предлагать диалог ввода. Протокол работы ведется как в текстовом файле, так и во внешнем приложении – Ms Word или Excel. Задание вот: Удаление файлов определенного расширения, Поле ввода расширения, вывести в Excel. Буду благодарен))) 0

	25.12.2012, 19:14