Vb.net 找不到文件“E:\Programa\DTR\DTR\bin\Debug\OpenFileDialog1”

这是我的密码

下面是openfiledialog1的值

If OpenFileDialog1.FileName <> Nothing Or OpenFileDialog1.FileName <> "" Then
   txtempname.Text = OpenFileDialog1.FileName.Substring(
       OpenFileDialog1.FileName.LastIndexOf("\") + 1,
       (OpenFileDialog1.FileName.IndexOf(".", 0) - (OpenFileDialog1.FileName.LastIndexOf("\") + 1)))
End If



Dim fsreader As New FileStream(OpenFileDialog1.FileName, FileMode.Open, FileAccess.Read)
Dim bread As New BinaryReader(fsreader)
Dim imgbuffer(fsreader.Length) As Byte
bread.Read(imgbuffer, 0, fsreader.Length)
fsreader.Close()

commstring = "Update EMPLOYEES SET EMPID=@EMPID, EMPNAME=@EMPNAME, DEPARTMENT=@DEPARTMENT, STATUS=@STATUS, pic_file=@picfile WHERE EMPID = @EMPID"

con.Open()

cmd = New OleDbCommand(commstring, con)

cmd.Parameters.AddWithValue("@EMPID", txtempno.Text)
cmd.Parameters.AddWithValue("@EMPNAME", txtempname.Text)
cmd.Parameters.AddWithValue("@DEPARTMENT", txtaddep.Text)
cmd.Parameters.AddWithValue("@STATUS", cbostat.Text)
cmd.Parameters.AddWithValue("@pic_file", imgbuffer)

cmd.ExecuteNonQuery()
con.Close()

您说的是如果OpenFileDialog1.FileName，而不是如果不是OpenFileDialog1.FileName

我猜你是想得到没有扩展名的文件名？如果是这样的话，就不需要所有这些“IndexOf”。他是一个简化版，应该会有所帮助

    If Not OpenFileDialog1.FileName Is Nothing And Not OpenFileDialog1.FileName = "" Then
        txtempname.Text = Path.GetFileNameWithoutExtension(OpenFileDialog1.FileName)
    End If

---

请为路径导入System.IO。什么是OpenFileDialog1？。相反，花些时间来改进你的问题。找不到问题，请阅读并获取@user202729。我将使用Openfiledialog1上载图像并将其保存到我的数据库中。上述句子中出现错误。@PUROTIX这是一个错误，无法找到文件“E:\Programa\DTR\DTR\bin\Debug\OpenFileDialog1Remember以检查是否取消。很高兴能提供帮助。如果这是正确的答案，你能投赞成票或标记为已回答吗？我是新来的，仍在努力争取我的第一个名声。非常感谢。