Создание скрипта с использованием WSH - Windows Script Host на VB laguage
Формулировка задачи:
есть задача
1) пусть в определенную папку "TEST" на диск С мне поступают файлы формата:
YYMMDDHHMMSS.DAT , где YY -год, MM -месяц, DD-день, HH-часы создания файлов.
2) необходимо переместить эти файлы на диск D по пути:
D:\YY\MM\DD\HH\MM\SS где YY,MM,DD.... названия папок по которым должны быть расфасованы эти файлы в соответствии с датой создания.
как переместить файлы или их скопировать я знаю, но как мне их расфасовать по необходимым папкам по дате создания ???
я понимаю так - мне нужно считывать части названия файла, проверять и сравнивать их значение, какой файл созданный ранее и соответственно их фасовать, но у меня не получается.
кто может написать как это сделать??
Решение задачи: «Создание скрипта с использованием WSH - Windows Script Host на VB laguage»
textual
Листинг программы
Sub Rasfasovka() 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д