Ocultar archivo al subirlo al servidor?? Y al crearlo???

[angel_dope]

Pues eso, tengo un modulito que por una parte sube un archivo seleccionado por el usuario al servidor, y a la vez crea un archivo de texto en la misma carpeta donde se sube esta imagen. Me gustaria que ambos archivos quedasen ocultos, ya que es una carpeta a la que los usuarios pueden acceder y podrían borrarlo sin querer. Hay alguna forma de hacerlo???

Gracias a tod@s, salu2,

[akela]

Propiedad Attributes

Establece o te dice que atributos tiene un archivo o carpeta. Escrituta/lectura o sólo escritura, dependiendo cual tenga el archivo.
Se usa:
objetoFileSystem.[b]Attributes[b] [= newattributes]

Argumentos

[b]objetoFileSystem[b]
Requeridod. Siempre el nombre d eun archivo o careta.

newattributes
Opcional. si se escribe, newattributes is el nuevo valor de atributo para un archivo o carpeta.

Settings

el argumento newattributes puede se uno o varios de los siguientes valores:

Constant Value Description
Normal ----- 0 ---- Normal file. No attributes are set.
ReadOnly ----- 1 ---- Read-only file. Attribute is read/write.
Hidden ------ 2 ----- Hidden file. Attribute is read/write.
System ----- 4 ---- System file. Attribute is read/write.
Volume ------ 8 ---- Disk drive volume label. Attribute is read-only.
Directory ---- 16 ---- Folder or directory. Attribute is read-only.
Archive ----- 32 ---- File has changed since last backup. Attribute is read/write.
Alias ----- 1024 ---- Link or shortcut. Attribute is read-only.
Compressed --2048 ---- Compressed file. Attribute is read-only.

El siguiente es un ejemplo:

[VBScript]
Function ToggleArchiveBit(filespec)
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(filespec)
If f.attributes and 32 Then
f.attributes = f.attributes - 32
ToggleArchiveBit = "Atributo quitado."
Else
f.attributes = f.attributes + 32
ToggleArchiveBit = "Atributo establecido."
End If
End Function