Criando pasta oculta VISUAL BASIC 2008

Question

Ola,

Eu estou querendo cria um programa que ele abra uma pasta oculta,mas essa pasta oculta sera Criada apos o programa ser aberto,Alguém pode me ajuda?

EU quero que quando o form for executado ele automaticamente criara uma pasta oculta . 

Answer 1

Tente o código abaixo:

string diretorio = @"c:\temp\oculto";

if (!Directory.Exists(diretorio)) 
{ 
DirectoryInfo di = Directory.CreateDirectory(diretorio); 
di.Attributes = FileAttributes.Directory | FileAttributes.Hidden; 
}

Espero ter ajudado e boa sorte!

---

Não esqueça de marcar como útil uma resposta que te ajude.
"A diversão é a alma do negócio"

Answer 2

Obrigado, olha só como eu tinha feito e funciono do jeito que eu queria:

Public Class Form1



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        FolderBrowserDialog1.ShowDialog()
        TextBox2.Text = FolderBrowserDialog1.SelectedPath
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            If CheckBox1.Checked = False Then
                Dim _url As String = TextBox2.Text & "/" & TextBox1.Text
                MkDir(_url)
                SetAttr(_url, vbHidden)
            Else
                Dim _url As String = TextBox2.Text & "/" & TextBox1.Text
                MkDir(_url)
            End If
            MsgBox("Pasta Criada Com Sucesso!", MsgBoxStyle.Information, "Sucesso!")
        Catch
        End Try
    End Sub

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox2.Text = ("C:\Users\Felipi\Desktop")
        TextBox1.Text = ("1")

    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

    End Sub

    Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
        TextBox2.Text = ("C:\Users\Felipi\Desktop")
        TextBox1.Text = ("5")
    End Sub

       Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Try
            If CheckBox1.Checked = True Then
                Dim _url As String = TextBox2.Text & "/" & TextBox1.Text
                MkDir(_url)
                SetAttr(_url, vbHidden)
            Else
                Dim _url As String = TextBox2.Text & "/" & TextBox1.Text
                MkDir(_url)
            End If
            MsgBox("Pasta Criada Com Sucesso!", MsgBoxStyle.Information, "Sucesso!")
        Catch
        End Try
        Process.Start("C:\Users\Felipi\Desktop\5")


    End Sub
End Class

Answer 3

Agora sim,olha como eu fiz:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox2.Text = ("C:\Users\Felipi\Desktop")
        TextBox1.Text = ("6")
        Try
            If CheckBox1.Checked = True Then
                Dim _url As String = TextBox2.Text & "/" & TextBox1.Text
                MkDir(_url)
                SetAttr(_url, vbHidden)
            Else
                Dim _url As String = TextBox2.Text & "/" & TextBox1.Text
                MkDir(_url)
            End If
            MsgBox("Pasta Criada Com Sucesso!", MsgBoxStyle.Information, "Sucesso!")
        Catch
        End Try
        Process.Start("C:\Users\Felipi\Desktop\6")
    End Sub
End Class