visual basic Criador de Pastas [Tutorial]

[[N]ARUTO_ 95]

Precisa de:

2 TextBox

3 Button

3 Label

 

Button1 = Local (Exemplo)

Button2 = Criar (Exemplo)

Button3 = Excluir (Exemplo)

Label 1 = Local aonde a pasta vai ser criada :

label 2 = Nome da pasta a ser criada:

label 3 = ???

Print do Projeto :

[spoiler="[Print]"]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

~

No Button 1 coloque esse Codigo :

Dim Folder As New FolderBrowserDialog

Folder.ShowDialog()

TextBox1.Text = Folder.SelectedPath

Label1.Text = "Nome da Pasta a ser criada: " + Folder.SelectedPath

Button 2 esse codigo :

If TextBox1.Text = "" Then

MsgBox("Selecione o caminho do arquivo!", vbCritical, "Erro!")

ElseIf TextBox2.Text = "" Then

MsgBox("Selecione o nome do arquivo!", vbCritical, "Erro!")

ElseIf My.Computer.FileSystem.DirectoryExists(TextBox1.Text & "\" & TextBox2.Text) = True Then

MsgBox("Esta pasta já existe!", vbCritical, "Erro!")

Else

MkDir(TextBox1.Text & "\" & TextBox2.Text)

MsgBox("Pasta criada com sucesso!", vbInformation, "Sucesso")

End If

Button 3 :

Try

If TextBox1.Text = "" Then

MsgBox("Selecione o caminho do arquivo!", vbCritical, "Erro!")

ElseIf TextBox2.Text = "" Then

MsgBox("Selecione o nome do arquivo!", vbCritical, "Erro!")

ElseIf My.Computer.FileSystem.DirectoryExists(TextBox1.Text & "\" & TextBox2.Text) = True Then

RmDir(TextBox1.Text & "\" & TextBox2.Text)

MsgBox("Pasta excluida com sucesso!", vbInformation, "Sucesso")

Else

MsgBox("Essa pasta não existe!", vbCritical, "Erro!")

End If

Catch

MsgBox("Essa pasta contêm conteúdo dentro!", vbCritical, "Erro!")

End Try

Dê 2 clique em cima do TextBox2 e cole esse Codigo :

Label3.Text = TextBox2.Text