VB.NET 2022移动图片文件报错‘文件被其他进程占用’的解决方法

你遇到的问题核心是PictureBox加载图片后没有彻底释放文件句柄，单纯设置PictureBox1.Image = Nothing不会主动释放底层的文件锁，导致移动时提示文件被占用。以下是几个可行的解决办法：

1. 彻底释放PictureBox的图片资源 #

在移动文件前，先调用Dispose()释放图片资源，这是最直接的修复方式：

' 先释放图片资源
If PictureBox1.Image IsNot Nothing Then
    PictureBox1.Image.Dispose()
    PictureBox1.Image = Nothing
End If

' 再执行移除列表项和移动操作
ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
My.Computer.FileSystem.MoveFile(sourcepath, targetpath)

2. 加载图片时避免锁定文件 #

如果是你自己负责加载图片到PictureBox，改用FileStream的方式加载，这样不会长期锁定文件：

' 加载图片的代码替换成这个
Dim sourcepath As String = System.IO.Path.Combine(SourceFolderPath.Text, ListBox1.SelectedItem.ToString)
Using fs As New System.IO.FileStream(sourcepath, System.IO.FileMode.Open, System.IO.FileAccess.Read)
    PictureBox1.Image = System.Drawing.Image.FromStream(fs)
End Using

Using块会自动释放FileStream，文件不会被持续锁定。

3. 改用File.Move方法 #

有时My.Computer.FileSystem.MoveFile的封装逻辑可能有额外限制，直接使用System.IO.File.Move试试：

System.IO.File.Move(sourcepath, targetpath)

额外优化：路径拼接用Path.Combine #

不要用+拼接路径，改用Path.Combine可以自动处理路径分隔符的问题，避免出现无效路径：

Dim sourcepath As String = System.IO.Path.Combine(SourceFolderPath.Text, ListBox1.SelectedItem.ToString)
Dim targetpath As String = System.IO.Path.Combine(Folder1Path.Text, ListBox1.SelectedItem.ToString)

内容的提问来源于stack exchange，提问作者Irfan Azhari