Usuário com melhor resposta
Criando pasta oculta VISUAL BASIC 2008

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 Classterç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 Classterça-feira, 11 de novembro de 2014 21:32