Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности
|
|
|
переименование с помощью VBS
|
|||
|---|---|---|---|
|
#18+
есть некая папка, в которой будут создаваться файлы, хотелось бы запускать скрипт, который будет проверять их наличие, а потом менять расширение. Для переименования я скрипт написал, но только для определенного файла, а вот как узнать, что там создается? Dim fso, s1 Dim dest, source Set fso=WScript.CreateObject("Scripting.FileSystemObject") s1 = fso.GetFileName("C:\temp\") source="C:\temp\new.bad" dest="c:\temp\new.tmp" fso.MoveFile source, dest ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 09.02.2006, 13:51 |
|
||
|
переименование с помощью VBS
|
|||
|---|---|---|---|
|
#18+
Function ShowFileList(folderspec) Dim fso, f, f1, fc, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(folderspec) Set fc = f.Files For Each f1 in fc s = s & f1.name s = s & "<BR>" Next ShowFileList = s End Function -- Posted via ActualForum NNTP Server 1.3 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 09.02.2006, 14:21 |
|
||
|
|

start [/forum/search_topic.php?author=mazay24&author_mode=last_posts&do_search=1]: |
0ms |
get settings: |
8ms |
get forum list: |
17ms |
get settings: |
10ms |
get forum list: |
22ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
40ms |
get topic data: |
12ms |
get forum data: |
2ms |
get page messages: |
48ms |
get tp. blocked users: |
2ms |
| others: | 500ms |
| total: | 669ms |

| 0 / 0 |
