[RESOLVED] Problem of setting a file attribute

[tanjiunnyann]

How to set a file attribute that filename consist of UNICODE character?
for example:

C:\我的文件.txt

I've tried SetAttr and SetFileAttributesA(API) are having error.

Anyone got an idea for unicode filename?

[dilettante]

Use the wide version: SetFileAttributesW.

See http://vb.mvps.org/tips/varptr.asp for a tip on using StrPtr() to make this possible from VB6.

[DrUnicode]

Unicode aware SetFileAttr
Returns True if successful

'Purpose: Unicode aware SetFileAttr
Public Function SetFileAttributes(ByVal lpFilename As String, ByVal dwFileAttributes As Long) As Boolean
   If Len(lpFilename) Then
      SetFileAttributes = SetFileAttributesW(StrPtr(lpFilename), dwFileAttributes) <> 0
   End If
End Function

[tanjiunnyann]

Thanks for DrUnicode and dilettante, the problem is solved!