使用字符串在指定位置创建文件夹

Question

我一直在编写允许用户在文件夹浏览器指定的位置创建文件夹并用两个文本字符串命名的代码，但到目前为止，我已经设法在默认位置创建文件夹。

如何使用文件夹浏览器设置位置，并使用这些文本作为默认新文件夹名称。

到目前为止的代码是。

对于创建文件夹按钮：

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim snombrecarpeta As String
        Dim sruta As Object
        snombrecarpeta = "QUO " & (quo.Text) & "_" & (proy.Text)
        sruta = ccliente()
        My.Computer.FileSystem.CreateDirectory(snombrecarpeta)
        MsgBox("Se ha creado la carpeta del proyecto")
    End Sub

对于搜索文件夹按钮：

Private Sub ccliente_Click(sender As Object, e As EventArgs) Handles ccliente.Click
        Dim ccliente = New FolderBrowserDialog()
        ccliente.SelectedPath = ("E:\Crear_carpetas\Crear_carpetas")
        If DialogResult.OK = ccliente.ShowDialog() Then
        End If  

谢谢转发。

是的，我刚刚开始涉足 vb 世界。

Answer 1

在桌面上创建文件夹，参见Environment.GetFolderPath和IO.Directory.CreateDirectory

    Dim snombrecarpeta As String
    Dim sruta As Object
    snombrecarpeta = "QUO " & (quo.Text) & "_" & (proy.Text)
    sruta = ccliente()
    '
    ' e.g. create directory on Desktop
    '
    snombrecarpeta = IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), snombrecarpeta)
    Try
        IO.Directory.CreateDirectory(snombrecarpeta)
        MessageBox.Show("Se ha creado la carpeta del proyecto")
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try

编辑：

    '
    ' https://docs.microsoft.com/en-us/dotnet/api/system.windows.forms.folderbrowserdialog?view=net-5.0
    '
    Dim path As String = ""
    Dim snombrecarpeta As String
    snombrecarpeta = String.Format("QUO{0}_{1}", (quo.Text), (proy.Text))
    Using fbd As New FolderBrowserDialog
        fbd.RootFolder = Environment.SpecialFolder.Desktop
        If fbd.ShowDialog = Windows.Forms.DialogResult.OK Then
            path = IO.Path.Combine(fbd.SelectedPath, snombrecarpeta)
        End If
    End Using