runtime error 326

Hi ,

I was wondering if someone knows what runtime error 326 means.

I am including in my application a resource file.

on runtime I want to copy my file in the hard drive this is the function I am using:

Public Sub copyresource(ByVal dtype As String, resfile As String)
Dim bres() As Byte
Dim fileres As Long
If Dir(resfile) = "" Then
bres = LoadResData(dtype, Bitmap)
fileres = FreeFile
Open resfile For Binary Access Write As #fileres
Put #fileres, , bres
Close #fileres
End If
End Sub

And this is how I called :
Call copyresource("w", App.path)


I 've never used resource files before I am wondering If I am doing something wrong.

will appreciate any help
Thanks