Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Создание скрипта с использованием WSH - Windows Sc 
:(
    Опции темы
NAVIGATORDH
  Дата 23.6.2016, 18:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 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
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.1030 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.