[英]Create folder in a specified location with strings
我一直在編寫允許用戶在文件夾瀏覽器指定的位置創建文件夾並用兩個文本字符串命名的代碼,但到目前為止,我已經設法在默認位置創建文件夾。
如何使用文件夾瀏覽器設置位置,並使用這些文本作為默認新文件夾名稱。
到目前為止的代碼是。
對於創建文件夾按鈕:
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 世界。
在桌面上創建文件夾,參見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
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.