Скопируйте и переименуйте папку в другую папку на основе имени значения поля - PullRequest
Новая
       28

Скопируйте и переименуйте папку в другую папку на основе имени значения поля

0 голосов
/ 19 сентября 2018

У меня есть этот код, моя цель - скопировать и вставить папку (со всем ее содержимым) из текущей папки шаблона, чтобы вставить в путь к файлу назначения, который основан на значениях полей в качестве условия для нового назначения файланазвание.

Я получаю сообщение об ошибке:

FSO.CopyFile Источник: = FromPath & FileExt, назначение: = ToPath

Не знаете почему, можете ли выпожалуйста помоги.Спасибо. 

Private Sub Command83_Click()
 Dim FSO As Object
    Dim FromPath As String
    Dim ToPath As String

    FromPath = "C:\Database Test Center\Master"  '<< Change
    ToPath = "C:\Database Test Center\Projects\" & Me.ProjectName.Value & "-" & 
Me.Lead.Value & "\MasterTemplate"

If Right(FromPath, 1) = "\" Then
    FromPath = Left(FromPath, Len(FromPath) - 1)
End If

If Right(ToPath, 1) = "\" Then
    ToPath = Left(ToPath, Len(ToPath) - 1)
End If

Set FSO = CreateObject("scripting.filesystemobject")

    If FSO.FolderExists(FromPath) = False Then
        MsgBox FromPath & " doesn't exist"
        Exit Sub
   End If

    FSO.CopyFile Source:=FromPath & FileExt, Destination:=ToPath
    MsgBox "You can find the files from " & FromPath & " in " & ToPath

End Sub
...