Crear archivos ocultos en Visual Basic 6
|
 wislow
142 posts | | Tema: Crear archivos ocultos en Visual Basic 6 - Fecha: 2007-09-22 13:23
Visto: 1572 veces - Respuestas: 5 - Tema nº: 2470813 | Estado: Mensaje cerrado.
Características: Windows XP Profesional, 1 GB de Ram, AMD Athlon 64, 2.20 GHz, 120GB.
Hola, estoy haciendo la versión 2.0 de mi anterior agenda telefónica, y me gustaría mejorarla haciendo que los archivos que usa, y los que crea nuevos con cada entrada se creasen ocultos, para tener así mejor presentación y profesionalidad, además de ocupar menos espacio en su carpeta; Gracias, Wislow. 
|
 
TheTourist
2.176 posts | | Tema: Crear archivos ocultos en Visual Basic 6 - Fecha: 2007-09-23 06:47
Hola
Porque no guardas esos archivos en una carpeta "data" por ejemplo
saludos
|
wislow
142 posts | | Tema: Crear archivos ocultos en Visual Basic 6 - Fecha: 2007-09-23 17:49
Muchas gracias por tu consejo, pero yo me refería a activar el atributo "Oculto" vía código; saludos, Wislow.  |
TheTourist
2.176 posts | | Tema: Crear archivos ocultos en Visual Basic 6 - Fecha: 2007-09-23 17:52
Hola
Es que yo soy bastante experimentado en Visual Basic, y nunca tuve que hacer lo que dices, y tampoco se me ocurre como hacerlo...
Busca en google algo
de seguro tiene que haber
saludos |
ebolo
1.304 posts | | Tema: Crear archivos ocultos en Visual Basic 6 - Fecha: 2007-09-23 19:36
Hola wislow. Perdona pero no he visto hata hoy el post.
Debes de usar la api de windows SetFileAttributes. La api la colocas al principio del editor de código.
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 ruta as string
ruta="rutadelarchivo"
SetFileAttributes ruta, FILE_ATTRIBUTE_HIDDEN
End Sub
saludos. |
|
|
|
