如何通过对话框一次性移动多个不同目录下的文件？

我完全懂你的需求——想通过一次对话框操作，把散在不同目录的多个文件一次性移到目标位置，不用挨个调用FileSystem.MoveFile处理单个文件。下面给你一套具体的实现方案，不管你用C#还是VB.NET都能直接套用：

核心思路 #

其实很简单，分三步走：

1. 用支持多选的文件对话框，让用户一次性选中所有要移动的文件（不管它们在哪个目录）
2. 用文件夹选择对话框，让用户指定目标目录
3. 遍历选中的每个文件，循环调用FileSystem.MoveFile（或File.Move）完成批量移动，同时处理异常和冲突情况

C# 实现示例 #

using System;
using System.IO;
using System.Windows.Forms; // 需要引用Windows Forms组件

namespace MultiFileMove
{
    public partial class MainForm : Form
    {
        public MainForm()
        {
            InitializeComponent();
        }

        private void btnMoveFiles_Click(object sender, EventArgs e)
        {
            // 1. 选择要移动的多个文件
            OpenFileDialog filePicker = new OpenFileDialog();
            filePicker.Multiselect = true;
            filePicker.Title = "请选择要移动的多个文件";
            filePicker.Filter = "所有文件 (*.*)|*.*"; // 可根据需求修改过滤规则

            if (filePicker.ShowDialog() != DialogResult.OK)
                return;

            // 2. 选择目标目录
            FolderBrowserDialog folderPicker = new FolderBrowserDialog();
            folderPicker.Description = "请选择文件要移动到的目标文件夹";

            if (folderPicker.ShowDialog() != DialogResult.OK)
                return;

            string targetFolder = folderPicker.SelectedPath;
            int successCount = 0;
            int failCount = 0;

            // 3. 批量执行移动操作
            foreach (string sourcePath in filePicker.FileNames)
            {
                try
                {
                    string fileName = Path.GetFileName(sourcePath);
                    string targetPath = Path.Combine(targetFolder, fileName);

                    // 处理文件已存在的情况：这里示例是提示用户选择是否覆盖
                    if (File.Exists(targetPath))
                    {
                        DialogResult result = MessageBox.Show(
                            $"文件 {fileName} 已存在，是否覆盖？",
                            "提示",
                            MessageBoxButtons.YesNoCancel,
                            MessageBoxIcon.Question
                        );

                        if (result == DialogResult.No)
                        {
                            failCount++;
                            continue;
                        }
                        else if (result == DialogResult.Cancel)
                            break;
                    }

                    // 执行移动（用FileSystem.MoveFile也可以，效果一致）
                    File.Move(sourcePath, targetPath);
                    successCount++;
                }
                catch (Exception ex)
                {
                    MessageBox.Show($"移动文件 {sourcePath} 失败：{ex.Message}", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error);
                    failCount++;
                }
            }

            // 完成后提示结果
            MessageBox.Show(
                $"批量移动完成！成功移动 {successCount} 个文件，失败 {failCount} 个文件",
                "完成",
                MessageBoxButtons.OK,
                MessageBoxIcon.Information
            );
        }
    }
}

VB.NET 实现示例 #

如果你用VB.NET，直接用My.Computer.FileSystem.MoveFile更顺手：

Imports System.IO

Public Class MainForm
    Private Sub btnMoveFiles_Click(sender As Object, e As EventArgs) Handles btnMoveFiles.Click
        ' 1. 选择要移动的多个文件
        Dim filePicker As New OpenFileDialog()
        filePicker.Multiselect = True
        filePicker.Title = "请选择要移动的多个文件"
        filePicker.Filter = "所有文件 (*.*)|*.*"

        If filePicker.ShowDialog() <> DialogResult.OK Then Exit Sub

        ' 2. 选择目标目录
        Dim folderPicker As New FolderBrowserDialog()
        folderPicker.Description = "请选择文件要移动到的目标文件夹"

        If folderPicker.ShowDialog() <> DialogResult.OK Then Exit Sub

        Dim targetFolder As String = folderPicker.SelectedPath
        Dim successCount As Integer = 0
        Dim failCount As Integer = 0

        ' 3. 批量执行移动操作
        For Each sourcePath As String In filePicker.FileNames
            Try
                Dim fileName As String = Path.GetFileName(sourcePath)
                Dim targetPath As String = Path.Combine(targetFolder, fileName)

                ' 处理文件已存在的情况
                If File.Exists(targetPath) Then
                    Dim result As DialogResult = MessageBox.Show(
                        $"文件 {fileName} 已存在，是否覆盖？",
                        "提示",
                        MessageBoxButtons.YesNoCancel,
                        MessageBoxIcon.Question
                    )

                    If result = DialogResult.No Then
                        failCount += 1
                        Continue For
                    ElseIf result = DialogResult.Cancel Then
                        Exit For
                    End If
                End If

                ' 使用FileSystem.MoveFile执行移动
                My.Computer.FileSystem.MoveFile(sourcePath, targetPath)
                successCount += 1
            Catch ex As Exception
                MessageBox.Show($"移动文件 {sourcePath} 失败：{ex.Message}", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
                failCount += 1
            End Try
        Next

        ' 完成提示
        MessageBox.Show(
            $"批量移动完成！成功移动 {successCount} 个文件，失败 {failCount} 个文件",
            "完成",
            MessageBoxButtons.OK,
            MessageBoxIcon.Information
        )
    End Sub
End Class

关键注意事项 #

• 权限问题：确保程序有足够的权限访问源文件和目标目录（比如系统盘的某些文件夹需要管理员权限才能操作）
• 文件冲突处理：示例中加入了覆盖提示，你也可以改成自动重命名（比如在文件名后加(1)）或者直接跳过，根据需求调整
• 异常处理：单个文件移动失败不会中断整个批量操作，保证其他文件能正常处理
• 路径安全：始终用Path.Combine拼接路径，避免手动拼接导致的格式错误

内容的提问来源于stack exchange，提问作者Fabien Biller