|
Модераторы: Akina |
|
NAVIGATORDH |
|
|||
Новичок Профиль Группа: Участник Сообщений: 1 Регистрация: 23.6.2016 Репутация: нет Всего: нет |
Создание скрипта с использованием WSH - Windows Script Host на VB laguage
есть задача 1) пусть в определенний каталог "TEST" на диск С скопировано файл формата : binYYMMDDHHmm.DAT - название сплошнoe без точек и пробелов 2) необходимо переместить эти файлы на диск D по пути: D:\YY\MM\DD\HH\ причем надо проверять если файл назван binYY.DAT то его копировать в папку D:\YY т так далее.... У меня есть код но нужно его переработать: Sub COPY() Dim i, oFSO, oFolder, oFile, MyPath, curPath, S, Z MyPath = "C:\test" Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFolder = oFSO.GetFolder(MyPath) For Each oFile In oFolder.Files S = oFile.Name curPath = "D:\" For i = 1 To InStr(1, S, ".") - 2 Step 2 Z = Mid(S, i, 2) curPath = curPath & "\" & Z If Dir(curPath, 16) = "" Then MkDir curPath End If Next i oFile.Move curPath & "\" & S Next Set oFSO = Nothing Set oFolder = Nothing End Sub только я bіn не учел и у меня вроде цикл бегает по всем папкам пути а должен найти нужную папку и остановится, можете исправить не получается.... исправил For i = 1 To InStr(1, S, ".") - 2 Step 2 на For i = 4 To InStr(1, S) - 2 Step 2 чтобы сразу пропускало bin и читало имя, вроде так, а дальше не получается Это сообщение отредактировал(а) NAVIGATORDH - 23.6.2016, 18:17 |
|||
|
||||
Правила форума "VB6" | |
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina. |
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | VB6 | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |