Vb.net 我想打开一个依赖于变量“的文件”;NewFileName";。I';我试图把它和它所在位置的路径连接起来。使用vb2010

Vb.net 我想打开一个依赖于变量“的文件”;NewFileName";。I';我试图把它和它所在位置的路径连接起来。使用vb2010,vb.net,windows,openfiledialog,Vb.net,Windows,Openfiledialog,首先,我看不到任何地方可以重命名文件。我建议使用FileInfo上的MoveTo方法,如下所示: Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'Dim theName As String 'Dim counter As System.Collecti

首先,我看不到任何地方可以重命名文件。我建议使用
FileInfo
上的
MoveTo
方法,如下所示:

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Dim theName As String
        'Dim counter As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
        Me.Hide()
        System.Diagnostics.Process.Start("C:\Projects\Test")
        For Each foundfile As String In My.Computer.FileSystem.GetFiles("C:\Projects\Test")
            Dim testFile As System.IO.FileInfo
            testFile = My.Computer.FileSystem.GetFileInfo(foundfile)
            Dim FileName As String = testFile.Name
            Dim FileNameEdited As String = Replace(FileName, ".DWG", "")
            Dim NewFileName As String = FileNameEdited & "_" & TextBox1.Text & ".DWG"
            MsgBox(FileNameEdited)
            Dim check As String = System.IO.Path.GetExtension(foundfile)
            If check = ".DWG" Then
                'My.Computer.FileSystem.RenameFile("C:\Projects\Test" & FileName, NewFileName)
                System.Diagnostics.Process.Start("C:\Projects\Test" & NewFileName)
            End If
        Next
    End Sub
然后,将新文件名连接到硬编码路径是不正确的。你需要在末尾加反斜杠。假设
NewFileName
持有值
Fleex\u main.DWG
:您将尝试启动
C:\Projects\TestFleex\u main.DWG
。连接操作符对路径一无所知,只是将两个字符串推到一起。这条线应该是:

testFile.MoveTo(NewFileName)

最后,如果您阅读StackOverflow的介绍,您会发现强烈建议您提出一个特定的问题,并将问题简化为做错事的行。代码转储使想要帮助您的人的生活更加困难。

您有什么问题吗?
System.Diagnostics.Process.Start("C:\Projects\Test\" & NewFileName)
'                                                 ^ very important