Vba用弹𥦬提取文件名和路径并转移到新的路径

在VBA（Visual Basic for Applications）中，你可以使用`Shell`函数结合`GetOpenFilename`对话框来让用户选择文件，并通过`Fso`对象（FileSystemObject）来操作文件路径。以下是一个简单的示例，演示如何提取文件名和路径，然后将其移动到新的位置：

Sub MoveFile()
    Dim filename As String
    Dim sourcePath As String
    Dim targetPath As String
    
    ' 弹出文件选择对话框
    With Application.FileDialog(msoFileDialogOpen)
        .Title = "选择文件"
        .Filters.Clear
        .Filters.Add "所有文件", "*.*"
        If .Show <> -1 Then ' 如果用户选择了文件
            filename = .SelectedItems(1) ' 提取文件名（包括路径）
            sourcePath = .SelectedItems(1) ' 文件完整路径
            
            ' 更改目标路径
            targetPath = "C:\新路径\example" ' 替换为你想要的目标路径
            
            ' 创建目标目录如果不存在
            If Not FSO.FolderExists(targetPath) Then
                FSO.CreateFolder targetPath
            End If
            
            ' 移动文件
            FSO.MoveItem Filename:=sourcePath, Destination:=targetPath & "\" & Left(sourcePath, InStrRev(sourcePath, "\")) ' 这里使用Left和InStrRev来获取文件名部分，避免路径冗余
        End If
    End With
End Sub

在这个例子中，用户可以选择文件，程序会提取文件名和完整路径，然后将文件移动到指定的新路径下。记得替换`targetPath`为你实际需要的目标路径。