VBA에서 동적 파일 재배치

Question

사용자가 파일을 선택하고 다른 위치 (예 : 공유 드라이브)에 업로드하도록 선택하려고합니다. 이름 함수를 사용하고 있지만 파일 이름을 가져 오는 데 문제가 있다는 것을 깨닫고 "toPath"에 넣는 것은 사용자에게 달려 있기 때문입니다. 아래는 완성 된 코드입니다. 조언이나 제안 사항이 도움이된다면 알려주세요.

동시에, 내 코드가 누군가가 그 문제를 해결하는 데 도움이되기를 바랍니다. 감사합니다

는 업로드 할 파일을 선택하려면 :

Private Sub Command2_Click() 

    Dim fDialog As Variant 

    ' Clear listbox contents. ' 
Me.Path1.Value = "" 
' Set up the File Dialog. ' 
Set fDialog = Application.FileDialog(msoFileDialogFilePicker) 

With fDialog 
    ' Allow user to make multiple selections in dialog box ' 
    .AllowMultiSelect = False 
    ' Set the title of the dialog box. ' 
    .Title = "Please select one file" 
    ' Clear out the current filters, and add our own.' 
    .Filters.Clear 

    .Filters.Add "All Files", "*.*" 
    ' Show the dialog box. If the .Show method returns True, the ' 
    ' user picked at least one file. If the .Show method returns ' 
    ' False, the user clicked Cancel. ' 
    If .Show = True Then 
    'add selected path to text box 
Me.Path1.Value = .SelectedItems(1) 
    Else 
    MsgBox "No File Selected." 
    End If 
End With 

End Sub 

파일을 업로드 할 업로드 경로를 선택하려면

Private Sub Command10_Click() 
Dim FromPath As String 
Dim ToPath As String 
Dim fDialog2 As Variant 
' Clear listbox contents. ' 
Me.Path2.Value = "" 
FromPath = Me.Path1 
ToPath = Me.Path2 
' Set up the File Dialog. ' 
Set fDialog2 = Application.FileDialog(msoFileDialogFolderPicker) 
With fDialog2 

    If .Show = True Then 
    'add selected path to text box 
Me.Path2.Value = .SelectedItems(1) 
    Else 
    MsgBox "No file uploaded." 
    End If 
    End With 

Name FromPath As ToPath & "\" & 'ummmmmmmmmmm I am stucked :(

MsgBox "You can find the files and subfolders from " & FromPath & " in " & ToPath 
End Sub 

Answer 1

리팩터링 다음과 같이 Command10_Click의 끝. 사용자가 새 파일 이름을 선택할 수 있습니다.

.... 

End With 

Dim ToName as String 
ToName = InputBox("Please Enter New File Name","New File Name") 

Name FromPath As ToPath & "\" & ToName 

.... 

난 당신이 FromPath에서 확장 유형을 잡아 그것은 Me.Path2.Value`이 값을 유지해야한다`과 같은 ToName