VB.NET中OpenFileDialog初始目录正确却打开错误文件夹问题

1. 过滤器（Filter）格式错误 #

你的OpenFileDialog1.Filter写法不符合控件规范，正确格式应为**「格式描述|通配符」**，多格式组用|分隔，同一组内的多通配符用;分隔。错误的过滤器格式会导致控件解析异常，干扰正常行为：
错误写法：

OpenFileDialog1.Filter = "img files *.png|*.bmp|*.jpg|*.jpeg|All files (*.*)|*.*"

修正后：

OpenFileDialog1.Filter = "Image Files (*.png, *.bmp, *.jpg, *.jpeg)|*.png;*.bmp;*.jpg;*.jpeg|All Files (*.*)|*.*"

2. 路径可能包含隐形空格或目标目录不存在 #

虽然标签显示路径正确，但需注意两个关键点：

• 从txtAddress.Text.Split(",")获取的brgy或municipality可能带有前后空格（比如原文本是"Barangay X , City Y"，Split后municipality会带前置空格），导致拼接的路径与实际磁盘目录不匹配。可以用Trim()去除冗余空格：

Dim brgy As String = txtAddress.Text.Split(",")(0).Trim()
Dim municipality As String = txtAddress.Text.Split(",")(1).Trim()

• 必须确认拼接后的路径对应的文件夹真实存在于本地磁盘。如果路径不存在，OpenFileDialog会自动跳转到上次打开的目录或系统默认目录（如文档文件夹），这是控件的默认 fallback 行为。

3. 简化路径拼接代码 #

你的路径最后多了无意义的空字符串拼接& ""，可以用VB.NET字符串插值简化代码（需VB.NET 2017及以上版本支持）：

OpenFileDialog1.InitialDirectory = $"D:\Desktop\APPROVED PLANS SOFT COPY\{municipality}\{brgy}\{yearString}"

4. 可选的路径合法性校验 #

可以在设置初始目录前先检查路径是否存在，提前发现问题：

Dim targetPath = $"D:\Desktop\APPROVED PLANS SOFT COPY\{municipality}\{brgy}\{yearString}"
If Directory.Exists(targetPath) Then
    OpenFileDialog1.InitialDirectory = targetPath
Else
    MessageBox.Show($"目标目录不存在：{targetPath}")
    Return
End If

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