Hi sadam,

The code below will set the hidden bit. I am afraid it will only change the file if it is in the current directory, I didn't investigate further.
[VBA]
Sub SetHiddenBit(filespec)
Dim fs As FileSystemObject
Dim f As File
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(fs.GetFileName(filespec))
f.Attributes = 2
Set f = Nothing
Set fs = Nothing
End Sub
Sub SendFile()
Dim FilNm As String
FilNm = "usat1.dwg"
SetHiddenBit FilNm
End Sub
[/VBA]