Visual Basic - crear carpeta

hola de new yo por aqui dicen q el q no pregunta, cacharrea e investiga no aprende naaa
bueno esta vez traigo una cosa que debe de ser muy facil para ustedes ps tienen mas experiencias y toda la vaina ...........la cosa es:......:crear una carpeta local es decir una carpeta dentro del programa que no se pueda ver en la cual se va a depositar y guardar una informacion la cual se puede buscar dando click en boton .....vamos muchachos yo me se un metodo pero no es el mas apropiado delen colaborenme ahi....con lo que mas pueda

tamos en contacto ya me estoy metiendo en el cuento

Hola el siguiente codigo lo que hace es lo siguiente,crea una carpeta llamada prueba en el directorio local,(si lo corres desde visual basic sera este por defecto claro), esta carpeta la pone oculta y un archivo de texto dentro de esa carpeta.

Dibuja un boton en el form .
al darle al boton se explora la carpeta prueba(se abre).

coloca el siguiente codigo en un form:

Private Sub Command1_Click()
Shell ("Explorer prueba"), vbMaximizedFocus
End Sub
Private Sub Form_Load()
'al correr el programa llamamos a la sub crearcarpetaoculta'
crearcarpetaoculta
End Sub
Sub crearcarpetaoculta()
'verificamos si la carpeta prueba existe,tanto oculta como no'
If Dir(App.Path & "prueba", vbDirectory + vbHidden) = "" Then
'si no existe,la creamos y la ponemos oculta'
'tambien ingresamos un archivo texto dentro'
MkDir (App.Path & "prueba")
SetAttr (App.Path & "prueba"), vbHidden
Open (App.Path & "pruebainformacion.txt") For Output As #1
Print #1, "la informacion que quieras"
Close #1
Else
'si existe,mostramos mensaje que existe.'
'y salimos del sub'
MsgBox "LA CARPETA YA EXISTE", vbInformation
Exit Sub
End If
End Sub


'-------------------------------------------------------------------------------------------------'
SALU2 ESPERO TE SIRVA

Hola de nuevo perdona el codigo para el boton command1 es esl siguiente:

Private Sub Command1_Click()
Shell ("explorer ") & App.Path + "prueba", vbMaximizedFocus
End sub

el codigo anterior del boton que te di dara error lo demas funciona bien..

salu2