Visual Basic - .bat en visual basic

Life is soft - evento anual de software empresarial
 
Vista:

.bat en visual basic

Publicado por Nutria (3 intervenciones) el 27/12/2016 18:05:47
Hola, estoy empezando en la programación y necesito ayuda con algo

Necesito esto en visual basic

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
cls
@ECHO OFF
title Folder Nuevo
if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto UNLOCK
if NOT EXIST Nuevo goto LOOK
:LOCK
ren Nuevo "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
attrib +h +s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
echo Folder locked
goto End
:UNLOCK
attrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" Nuevo
echo Folder Unlocked successfully
Shell "G:\Escritorio\Nuevo", vbNormalFocus
goto end
:End

Logre cambiar el nombre de la carpeta y agregar el atributo hidden, funciona, pero no igual que el archivo batch, porque en el explorador se sigue viendo la carpeta, oculta, pero se puede leer

1
2
My.Computer.FileSystem.RenameDirectory("G:\Escritorio\atx", "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}")
        SetAttr("G:\Escritorio\Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}", FileAttribute.Hidden)
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 4.017
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

.bat en visual basic

Publicado por Andres Leonardo (1672 intervenciones) el 27/12/2016 20:00:42
ahora yo te hago la pregunta al reves

Que quieres hacer ??

Crear una carpeta oculta ??? es eso???
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

.bat en visual basic

Publicado por Nutria (3 intervenciones) el 27/12/2016 20:08:51
Claro, que no se pueda acceder a la carpeta ni los archivos que estan adentro desde el explorador
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

.bat en visual basic

Publicado por carlos (8 intervenciones) el 28/12/2016 08:00:12
intentale asi:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
cls
@ECHO OFF
title Folder Nuevo
if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto UNLOCK
if NOT EXIST Nuevo goto LOOK
:LOCK
ren Nuevo "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
attrib +h +s +r "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
echo Folder locked
goto End
:UNLOCK
attrib -h -s -r  "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" Nuevo
echo Folder Unlocked successfully
Shell "G:\Escritorio\Nuevo", vbNormalFocus
goto end
:End
---------------------------------------------
1
2
My.Computer.FileSystem.RenameDirectory("G:\Escritorio\atx", "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}")
SetAttr("G:\Escritorio\Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}", FileAttribute.ReadOnly + FileAttribute.Hidden)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

.bat en visual basic

Publicado por Nutria (3 intervenciones) el 29/12/2016 05:17:03
Perdón pero capas que no se entendió lo que quería decir, básicamente necesito que la carpeta este oculta completamente, desde un script de visual basic, con el batch eso pasa, pero cuando lo hago eso con visual entra en modo oculto pero se sigue viendo la carpeta, gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

.bat en visual basic

Publicado por carlos (8 intervenciones) el 30/12/2016 05:45:47
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar