ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Возможно ли такое написать на vbs.
10 сообщений из 35, страница 2 из 2
  2  все
Возможно ли такое написать на vbs.
    #39069975
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
TYMAH3003Путь как то не так указываю ошибка выскакиваетTYMAH3003что то не так с параметром fTYMAH3003так не работаетИнтересно, ты догадаешься, наконец, писать текст ошибки или будешь продолжать считать, что мы видим твой экран?
...
Рейтинг: 0 / 0
06.10.2015, 23:17
| Ответить | Цитировать | Написать  
Возможно ли такое написать на vbs.
    #39069979
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
TYMAH3003не работаета у меня работает. Для начала напишите в какой строке ошибка(если она есть) и какая ошибка.
...
Рейтинг: 0 / 0
06.10.2015, 23:24
| Ответить | Цитировать | Написать  
Возможно ли такое написать на vbs.
    #39070000
TYMAH3003
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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.
Dim s,d,m,v,f,g,dir
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")
if dir("C:\" & s,16) = "" then
Set objFolder = objFSO.CreateFolder("C:\" & s)
end if
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 &"\"& "—рочные")



Строка 15 символ 1 несоответствие типа код 800A00D
...
Рейтинг: 0 / 0
07.10.2015, 00:23
| Ответить | Цитировать | Написать  
Возможно ли такое написать на vbs.
    #39070003
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ура, текст ошибки появился. Но строку по номеру высчитать нам предстоит все равно самим.

The_Prist,
эм, а есть ли функция Dir в vbs?
...
Рейтинг: 0 / 0
07.10.2015, 00:33
| Ответить | Цитировать | Написать  
Возможно ли такое написать на vbs.
    #39070004
Фотография Relic Hunter
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Relic Hunter
Участник
Shocker.Proэм, а есть ли функция Dir в vbs? эм, может свою написал?
...
Рейтинг: 0 / 0
07.10.2015, 00:37
| Ответить | Цитировать | Написать  
Возможно ли такое написать на vbs.
    #39070007
TYMAH3003
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TYMAH3003
Гость
Код: vbnet
1.
2.
3.
4.
5.
If fso.FolderExists(dir & "\имя папки") Then
    fso.DeleteFolder dir & "\имя папки"
Else
    MsgBox "папка не существует"
End if


каким то таким образом
...
Рейтинг: 0 / 0
07.10.2015, 00:40
| Ответить | Цитировать | Написать  
Возможно ли такое написать на vbs.
    #39070009
TYMAH3003
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TYMAH3003
Гость
Код: vbnet
1.
2.
3.
4.
If objFSO.FolderExists(dir & "C:\" & s) Then
Else
Set objFolder = objFSO.CreateFolder("C:\" & s)
End if



Работает таким образом
...
Рейтинг: 0 / 0
07.10.2015, 00:44
| Ответить | Цитировать | Написать  
Возможно ли такое написать на vbs.
    #39070011
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Shocker.Proа есть ли функция Dir в vbsУпс, мой косяк. Что-то не обратил внимания, что это все на VBS...
...
Рейтинг: 0 / 0
07.10.2015, 00:45
| Ответить | Цитировать | Написать  
Возможно ли такое написать на vbs.
    #39070013
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
TYMAH3003каким то таким образомгугл - наше все )
...
Рейтинг: 0 / 0
07.10.2015, 00:56
| Ответить | Цитировать | Написать  
Возможно ли такое написать на vbs.
    #39070187
TYMAH3003
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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.
25.
26.
27.
28.
29.
30.
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")
If objFSO.FolderExists(dir & "E:\00DOCUMENTS\" & s) Then 
Else
Set objFolder = objFSO.CreateFolder("E:\00DOCUMENTS\" & s)
End if 
If objFSO.FolderExists(dir & "E:\00DOCUMENTS\"& s &"\" & v) Then 
Else
Set objFolder = objFSO.CreateFolder("E:\00DOCUMENTS\"& s &"\" & v)
Set objFolder = objFSO.CreateFolder("E:\00DOCUMENTS\"& s &"\"& v &"\"& 10)
Set objFolder = objFSO.CreateFolder("E:\00DOCUMENTS\"& s &"\"& v &"\"& 12)
Set objFolder = objFSO.CreateFolder("E:\00DOCUMENTS\"& s &"\"& v &"\"& 15)
Set objFolder = objFSO.CreateFolder("E:\00DOCUMENTS\"& s &"\"& v &"\"& 17)
Set objFolder = objFSO.CreateFolder("E:\00DOCUMENTS\"& s &"\"& v &"\"& "Срочные")
End if 
f = "E:\00DOCUMENTS\LOG\" & s & "\" & v & "\*.tif"
objFSO.CopyFile f , g, 1
MsgBox "Сегодня " & d &" :число, месяц: " & s & ". Логотипы успешно созданы"
...
Рейтинг: 0 / 0
07.10.2015, 09:55
| Ответить | Цитировать | Написать  
10 сообщений из 35, страница 2 из 2
  2  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Возможно ли такое написать на vbs.
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&gotonew=1&tid=2155776]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 35ms
get topic data:
 10ms
get first new msg:
 7ms
get forum data:
 3ms
get page messages:
 54ms
get tp. blocked users:
 1ms
others: 292ms
total:  433ms
созд. / загр.: 433ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]