Доброго времени суток!
Есть батник вида:
как мне создать такой батник по средствам vb.net? на просторах интернета нашел такой код для создания:
но мне необходимо создать этот батник так:
1. Что бы путь к 7z брался из текстового поля
2. Уточнение расширений файла так же из текстового поля (*.pdf; *.doc). Причем перечесление разширений в текстовом поле должно быть точку с запятой, например: *.pdf; *.doc; *.docx и т.д. (вот этот кусок в батнике: -i!*.pdf -i!*.doc -i!*.docx)
3. уточнение для того, что не нужно распаковывать (вот этот кусок в батнике: -x!qwe*.doc) так же должен браться из текстового поля, таким же перечеслением, например qwe*.doc; 123*.xlsx и т.д
Думаю, что задача для Вас, дорогие знатоки vb.net не слишком сложная. Прошу помощи. Заранее вам большое и человеческое СПАСИБО!!!
Есть батник вида:
:
for /l %%t in (1,1,7) do (
for %%i in (*.arj *.rar) do (
"c:\Program Files\7-Zip\7z.exe" e "%%i" -i!*.pdf -i!*.doc -i!*.docx -x!qwe*.doc -i!*.arj -i!*.rar -o.\ -y
))
pause:
Dim sb As New System.Text.StringBuilder
sb.AppendLine("@echo off")
sb.AppendLine("cls()")
sb.AppendLine(": begin()")
sb.Append("ping 1.1.1.1 -w -n 1")
sb.AppendLine("cls()")
sb.AppendLine("echo.")
sb.AppendLine("echo.")
sb.AppendLine("echo.")
sb.AppendLine("echo WARNING!!! PROCEED WITH CAUTION")
sb.AppendLine("ping 1.1.1.1 -w -n 1")
sb.AppendLine("GoTo begin")
IO.File.WriteAllText("F:\fileName.bat", sb.ToString())
Process.Start("fileName.bat")1. Что бы путь к 7z брался из текстового поля
2. Уточнение расширений файла так же из текстового поля (*.pdf; *.doc). Причем перечесление разширений в текстовом поле должно быть точку с запятой, например: *.pdf; *.doc; *.docx и т.д. (вот этот кусок в батнике: -i!*.pdf -i!*.doc -i!*.docx)
3. уточнение для того, что не нужно распаковывать (вот этот кусок в батнике: -x!qwe*.doc) так же должен браться из текстового поля, таким же перечеслением, например qwe*.doc; 123*.xlsx и т.д
Думаю, что задача для Вас, дорогие знатоки vb.net не слишком сложная. Прошу помощи. Заранее вам большое и человеческое СПАСИБО!!!