Question

我想在桌面上创建一个文件夹，我想创建一次。但是，一旦安装了我的项目，当我调试我的程序时，我收到此错误：

从字符串转换为“gfgffgfgfg”类型整数无效

这是我的代码：

 Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

    Try
        MkDir(My.Computer.FileSystem.SpecialDirectories.Desktop("gfgffgfgfg"))

    Catch ex As Exception
        MsgBox(ex.Message.ToString)
    End Try

Answer 1

我不知道将字符串传递给Desktop是什么意思，我希望其他形式的编译错误（虽然我不太了解VB编译器），但也许你想要这个：

Path.Combine(My.Computer.FileSystem.SpecialDirectories.Desktop, "gfgffgfgfg")

那应该返回正在创建的文件夹的完全限定路径。

Answer 2

  Dim SELEXPED_DIR As String = My.Computer.FileSystem.SpecialDirectories.Desktop + "\SELEXPED"

    If Directory.Exists(SELEXPED_DIR) = False Then
        Try
            Directory.CreateDirectory(SELEXPED_DIR)

        Catch ex As Exception
            'Nothing to do
        End Try
    End If

在桌面上创建一个文件夹

2 个答案: