none
Criando pasta oculta VISUAL BASIC 2008 RRS feed

  • Pergunta

  • 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 . 

    terça-feira, 11 de novembro de 2014 20:47

Respostas

  • 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"

    • Marcado como Resposta FelipiPiovezani terça-feira, 11 de novembro de 2014 21:16
    terça-feira, 11 de novembro de 2014 21:01

Todas as Respostas

  • 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"

    • Marcado como Resposta FelipiPiovezani terça-feira, 11 de novembro de 2014 21:16
    terça-feira, 11 de novembro de 2014 21:01
  • 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

    terça-feira, 11 de novembro de 2014 21:16
  • 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

    terça-feira, 11 de novembro de 2014 21:32