Нюанс при перемещение группы файлов

[Чудик]

Делаю так:

Код: Выделить всё

        Dim mypath As String = "\\cljcitrix\skm-intr\archives"
        Dim x() As String = IO.Directory.GetFiles(mypath)
        For i As Integer = 0 To x.GetUpperBound(0)
            If IO.File.GetCreationTime(x(i)) < DateAdd(DateInterval.Month, -1, Now()) Then
                IO.File.Move(x(i), "C:\MyArchive" & x(i))
            End If
        Next


Проблема в том, что выполнении происходит исключение:

Additional information: Could not find a part of the path "C:\MyArchive\\cljcitrix\skm-intr\archives\10000542.XML".

Подскажите, как порешить данную неувязочку, учитывая то, что имя файла необходимо сохранить .....

[baha76]

Попробуй убрать одну наклонную черту и строки path, т.е. вместо

Код: Выделить всё

Dim mypath As String = "\\cljcitrix\skm-intr\archives"

напиши

Код: Выделить всё

Dim mypath As String = "\cljcitrix\skm-intr\archives"

[Чудик]

нет, это не подходит, так как в таком случае получаем неверный путь к исходным файлам .....

[GSerg]

А скажи мне, Чудик, не пробовал ли ты для целей конкатенации брать только ту часть пути, которая на самом деле нужна?

[Чудик]

Думал, но не пробовал, так не знаю ...... буду признателен в благоразумной подсказке

[Чудик]

ОК!
Разобрался -

Код: Выделить всё

                IO.File.Move(x(i), "C:\MyArchive" & x(i).Remove(0, 29))