Возможно ли такое написать на vbs. / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Возможно ли такое написать на vbs.

25 сообщений из 35, страница 1 из 2

все

Возможно ли такое написать на vbs.

#39067571

TYMAH3003

Гость

Добрый день
Помогите написать скрипт такого типа.
Создаёт папки исходя из текущей даты на копмьютере в C:\dok\октябрь(имя папки месяц. создаётся папка скриптом исходя из системного

времени)\01-10(эта папка также формируется исходя из сегоднешнего числа)\ папка с менет "10" и "12" создаются просто в корне папки

01-10. В итоге должно получиться так C:\dok\октябрь\01-10\ и в неи 2 папаки 10 и 12.
И ешё проходит копирование С:\дата\01-10(папка выбирается относительно текужего числа и месяца) и всё содержимое авбранной папки

копируется в папку С:\дата\сегодня . С заменой файлов без запроса. И в конце просто скрипк выполнен.
Спасибо.

Модератор: Тема перенесена из форума "Программирование".

...

Рейтинг:

0 / 0

03.10.2015, 12:45

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39067766

Akina

Участник

Откуда: Зеленоград, Москва, Россия

Сообщения: 20 644

Рейтинг: 0 / 0

TYMAH3003Помогите написать скрипт
Ну поскольку ты сам ещё ни хрена не сделал, единственное, чем мы можем тебе именно помочь - так это посочувствовать... авось поможет.

...

Рейтинг:

0 / 0

03.10.2015, 23:20

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39067767

x1ca4064

Участник

Сообщения: 1 191

Рейтинг: 0 / 0

TYMAH3003,

Посмотрите описание FileSystemObject.
Почему именно vbs? Можно обычный .bat использовать, ну и с требованиями определиться получше.

...

Рейтинг:

0 / 0

03.10.2015, 23:27

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39067885

i45

Участник

Сообщения: 8 244

Рейтинг: 0 / 0

http://www.tutorialspoint.com/vbscript/vbscript_fso_objects.htm

...

Рейтинг:

0 / 0

04.10.2015, 15:55

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069349

TYMAH3003

Гость

Да Я просто совсем не бумбум вбс, бат могу попробоваб

Вот что вышло.
автор@echo On
md %systemdrive%\%date:~0,2%
md %systemdrive%\%date:~0,2%\%date:~0,2%-%date:~3,2%
md %systemdrive%\%date:~0,2%\%systemdrive%\%date:~0,2%-%date:~3,2%\10
md %systemdrive%\%date:~0,2%\%systemdrive%\%date:~0,2%-%date:~3,2%\12
md %systemdrive%\%date:~0,2%\%systemdrive%\%date:~0,2%-%date:~3,2%\15
md %systemdrive%\%date:~0,2%\%systemdrive%\%date:~0,2%-%date:~3,2%\17
md %systemdrive%\%date:~0,2%\%systemdrive%\%date:~0,2%-%date:~3,2%\‘а®злҐ
pause

Только вот проблема, md %systemdrive%\%date:~0,2% это создаётся папки в виде числа месаца, а возможно ли создание Октябрь, в текстовой форме
Спасибо

...

Рейтинг:

0 / 0

06.10.2015, 13:30

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069367

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

i45 http://www.tutorialspoint.com/vbscript/vbscript_fso_objects.htm лучше это:

https://vbsabout.wordpress.com/2013/02/27/fsofolde/

там чистый vbs без html.

а это месяц названием: https://msdn.microsoft.com/en-us/library/58f13257(v=vs.84).aspx

...

Рейтинг:

0 / 0

06.10.2015, 13:38

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069380

TYMAH3003

Гость

Вы конешно извините , но я совсем никак в это не могу разобраться(((((

...

Рейтинг:

0 / 0

06.10.2015, 13:48

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069399

Akina

Участник

Откуда: Зеленоград, Москва, Россия

Сообщения: 20 644

Рейтинг: 0 / 0

TYMAH3003Только вот проблема, md %systemdrive%\%date:~0,2% это создаётся папки в виде числа месаца, а возможно ли создание Октябрь, в текстовой форме
Это тебе повезло, что у тебя системный формат даты mm-dd-yyyy. У меня на компе такая фигня, например, сейчас выведет число, а не месяц.
Да и чем тебе число хуже буквы? по крайней мере сортироваться будет правильно.

...

Рейтинг:

0 / 0

06.10.2015, 14:02

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069436

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

TYMAH3003Вы конешно извините , но я совсем никак в это не могу разобраться(((((ну, либо придется поднапрячься, либо сюда: http://www.sql.ru/forum/job

...

Рейтинг:

0 / 0

06.10.2015, 14:26

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069518

TYMAH3003

Гость

авторDim s
Set WshShell = CreateObject("WScript.Shell")
On Error Resume Next
dim d,m
d = day( date() )
m = month(date())
if d < 10 then
d = "0" & d
end if
if m < 10 then
m = "0" & m
end if

s = d & "-" & m
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder("C:\" & s)

Вот в корне диска создаётся папка с датой и месяцем
не могу понять как преобразовать число месяца в текст

авторDim MyVar
MyVar = MonthName(10, True) ' MyVar contains "Oct".
как его вписать не пойму

...

Рейтинг:

0 / 0

06.10.2015, 15:29

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069523

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

TYMAH3003,

Модератор: Учимся использовать тэги оформления кода - FAQ

...

Рейтинг:

0 / 0

06.10.2015, 15:34

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069545

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

TYMAH3003автор

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.

Dim s,d,m
d = day( date() )
m = month(date())
if d < 10 then
   d = "0" & d
end if
if m < 10 then
   m = "0" & m
end if

s = d & "-" & monthname(month(date()))
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder("C:\" & s)

Вот в корне диска создаётся папка с датой и месяцем
не могу понять как преобразовать число месяца в текст

авторDim MyVar
MyVar = MonthName(10, True) ' MyVar contains "Oct".
как его вписать не пойму

...

Рейтинг:

0 / 0

06.10.2015, 15:47

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069578

TYMAH3003

Гость

Спасибо огромный

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.

Dim s,d,m,v
d = day( date() )
m = month(date())
if d < 10 then
   d = "0" & d
end if
if m < 10 then
   m = "0" & m
end if

s = monthname(month(date()))
v = d & "-" & m
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder("C:\" & s)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder("C:\"& s"\" & V)

Не могу в папке создать другую папку
Точнее синтаксим пути как прописать
C:\Октябрь\06-10\ и далее 4 папки с именами 10 12 15 17
Путь как то не так указываю ошибка выскакивает

...

Рейтинг:

0 / 0

06.10.2015, 16:12

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069595

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

амперсанд один потерял

...

Рейтинг:

0 / 0

06.10.2015, 16:23

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069622

TYMAH3003

Гость

& s &
Спасибо работает

...

Рейтинг:

0 / 0

06.10.2015, 16:40

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069721

TYMAH3003

Гость

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.

Dim s,d,m,v,f,g
d = day( date() )
m = month(date())
if d < 10 then
   d = "0" & d
end if
if m < 10 then
   m = "0" & m
end if

s = monthname(month(date()))
g = "E:\00DOCUMENTS\LOG\DATA"
v = d & "-" & m
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder("C:\" & s)
Set objFolder = objFSO.CreateFolder("C:\"& s &"\" & v)
Set objFolder = objFSO.CreateFolder("C:\"& s &"\"& v &"\"& 10)
Set objFolder = objFSO.CreateFolder("C:\"& s &"\"& v &"\"& 12)
Set objFolder = objFSO.CreateFolder("C:\"& s &"\"& v &"\"& 15)
Set objFolder = objFSO.CreateFolder("C:\"& s &"\"& v &"\"& 17)
Set objFolder = objFSO.CreateFolder("C:\"& s &"\"& v &"\"& "Срочные")

f = "E:\00DOCUMENTS\LOG\" & s & "\" & v & "\"*.tif
objFSO.CopyFile f , g, OverwriteExisting

неверная ссылка что то не так с параметром f
А как прописать переменную "F" ссылку на такую папку

Код: vbnet

f = "E:\00DOCUMENTS\LOG\терущий месац текстом(переменная s)\текущая дата (& s &"\" & v (формата 06-10))\*.tif"

И в папке 06-10 скопировать все тифы, как правильно построить ссылку.
Спасибо

...

Рейтинг:

0 / 0

06.10.2015, 17:52

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069724

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

TYMAH3003неверная ссылка что то не так с параметром fкавычку теперь не там поставил
Смотри, даже тупо с форумной подсветкой синтаксиса ошибка видна

...

Рейтинг:

0 / 0

06.10.2015, 17:55

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069725

TYMAH3003

Гость

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.

Dim s,d,m,v,f,g
d = day( date() )
m = month(date())
if d < 10 then
   d = "0" & d
end if
if m < 10 then
   m = "0" & m
end if

s = monthname(month(date()))
g = "E:\00DOCUMENTS\LOG\DATA"
v = d & "-" & m
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder("C:\" & s)
Set objFolder = objFSO.CreateFolder("C:\"& s &"\" & v)
Set objFolder = objFSO.CreateFolder("C:\"& s &"\"& v &"\"& 10)
Set objFolder = objFSO.CreateFolder("C:\"& s &"\"& v &"\"& 12)
Set objFolder = objFSO.CreateFolder("C:\"& s &"\"& v &"\"& 15)
Set objFolder = objFSO.CreateFolder("C:\"& s &"\"& v &"\"& 17)
Set objFolder = objFSO.CreateFolder("C:\"& s &"\"& v &"\"& "Срочные")

f = "E:\00DOCUMENTS\LOG\" & s & "\" & v & "\"*.tif
objFSO.CopyFile f , g, OverwriteExisting

неверная ссылка что то не так с параметром f
А как прописать переменную "F" ссылку на такую папку

Код: vbnet

f = "E:\00DOCUMENTS\LOG\терущий месац текстом(переменная s)\текущая дата (& s &"\" & v (формата 06-10))\*.tif"

И в папке 06-10 скопировать все тифы, как правильно построить ссылку.
Спасибо

...

Рейтинг:

0 / 0

06.10.2015, 17:55

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069729

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Ты собираешь пусть из переменных и текстовых констант. Константы берешь в кавычки, переменные - нет, все внимательно склеиваешь с помощью амперсенда

...

Рейтинг:

0 / 0

06.10.2015, 17:58

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069742

TYMAH3003

Гость

авторСмотри, даже тупо с форумной подсветкой синтаксиса ошибка видна
Когда знаешь синтаксис то всё видно. А когда дизайнер компьютерной графики, то просто разные цветами код, и непонять куда эту кавычки.

...

Рейтинг:

0 / 0

06.10.2015, 18:07

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069754

TYMAH3003

Гость

Ура

Код: vbnet

f = "E:\00DOCUMENTS\LOG\" & s & "\" & v & "\*.tif"

спасибо теперь понял как путь составлять

Ещё 1 момент если скрипт запустить второй раз то он пишет что файлы и папки существуют, мне нужна их перезапись,
Файлы тиф в папке "E:\00DOCUMENTS\LOG\DATA" пепезаписываются на такие же, но только из другой даты 07-10 к примеру

...

Рейтинг:

0 / 0

06.10.2015, 18:14

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069903

TYMAH3003

Гость

По поводу перезаписи файлов решил.

Код: vbnet

objFSO.CopyFile f , g, 1

А как перезаписывать каталоги?
Или как проверять если он есть то создавать не нужно
Проверка только на месяц который текстом пишется

...

Рейтинг:

0 / 0

06.10.2015, 21:15

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069905

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Проверять

...

Рейтинг:

0 / 0

06.10.2015, 21:16

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069924

The_Prist

Участник

Откуда: www.excel-vba.ru

Сообщения: 2 025

Рейтинг: 0 / 0

TYMAH3003как проверять если он есть то создавать не нужно

Код: vbnet

1.
2.
3.
4.

if dir("путь_к_каталогу",16) = "" then
mkdir "путь_к_каталогу"
'или objFSO.CreateFolder, как удобнее
end if

...

Рейтинг:

0 / 0

06.10.2015, 22:07

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069963

TYMAH3003

Гость

Код: vbnet

1.
2.
3.
4.

Set objFSO = CreateObject("Scripting.FileSystemObject")
if dir("C:\" & s,16) = "" then
Set objFolder = objFSO.CreateFolder("C:\" & s)
end if

Пишу так не работает

...

Рейтинг:

0 / 0

06.10.2015, 23:08

| Ответить | Цитировать | Написать

25 сообщений из 35, страница 1 из 2

все

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Возможно ли такое написать на vbs.

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&tid=2155776]:	0ms
get settings:	10ms
get forum list:	13ms
check forum access:	4ms
check topic access:	4ms
track hit:	78ms
get topic data:	9ms
get forum data:	2ms
get page messages:	47ms
get tp. blocked users:	1ms
others:	302ms

total:	470ms