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