Создание скрипта с использованием WSH - Windows Script Host на VB laguage - VB

Формулировка задачи:

есть задача 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 - VB»

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

8   голосов, оценка 4.500 из 5


СОХРАНИТЬ ССЫЛКУ