SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: AYCUL en Viernes 27 de Febrero de 2004, 05:01
-
Hola !! :hola:
como puedo hacer para que un archivo quede oculto?
adios y gracias :comp:
-
depende si quieres ocultarlo solo dale propiedades y marca oculto.
tambien puedes ocultar archivos por ms-dos. si no es de alguna de estas maneras
explicate mejor B)
-
pues exactamente de la siguiente manera
eliges un archivo
le das click derecho
y lo modificas a oculto
pero lo que yo quiero es que esto sea atravez de codigo.
-
hola compa aycul ahora si te entendi es sencillo con el api setfileattributes
dejame darte el codigo:
Option Explicit
Private Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
Const FILE_ATTRIBUTE_ARCHIVE = &H20
Const FILE_ATTRIBUTE_DIRECTORY = &H10
Const FILE_ATTRIBUTE_HIDDEN = &H2
Const FILE_ATTRIBUTE_NORMAL = &H80
Const FILE_ATTRIBUTE_READONLY = &H1
Const FILE_ATTRIBUTE_SYSTEM = &H4
Const FILE_ATTRIBUTE_TEMPORARY = &H100
Private Sub Form_Load()
Dim nombre$
nombre$ = InputBox("nombre del archivo con su path:")
SetFileAttributes nombre$, FILE_ATTRIBUTE_HIDDEN
End Sub
para saber las propiedades de un archivo solo cambia set por get
Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long
-
gracias hitman47
:gracias:
-
No lo puede hacer funcionar
adonde dice esto
nombre$ = InputBox("nombre del archivo con su path:")
debo de poner el archivo y su ruta no?
por ejemplo: "C:\WINZIP.TXT"
:brickwall:
-
bueno yo cree un archivo llamado winzip.txt en C: y solo le introduje en el input lo siguiente C:\winzip.txt y lo puso oculto
-
hoooo
si esta bien lo que me fallaba era el archivo
gracias
:beer: :bravo: