SoloCodigo

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  

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

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"

 

hoooo

si esta bien lo que me fallaba era el archivo

gracias