We help IT Professionals succeed at work.

We've partnered with Certified Experts, Carl Webster and Richard Faulkner, to bring you a podcast all about Citrix Workspace, moving to the cloud, and analytics & intelligence. Episode 2 coming soon!Listen Now

x

How to save an UTF-8 string as file name with CreateFileW API Function

guest321
guest321 asked
on
Medium Priority
1,493 Views
Last Modified: 2012-06-22
I am currently developing a upload component for web page, the html page uses UTF-8 encoding and uploads a file that named with simplified chinese characters. The vb6 component uses the MultiByteToWideChar API function to convert the data requested from Request object with UTF-8 (65001), then uses CreateTextW function to save file onto disk.

lngFileHandle = CreateFile(strFileName, GENERIC_WRITE, 0, ByVal 0&, CREATE_ALWAYS, 0, 0)

I've tried to use CreateFileA() function, but strFileName contained unicode chars which CreateFileA() did not recognise (shown as ?) and returned a "Bad file name or number" error.
Using CreateFileW(), it accepts the file name, but it does not recognise the encoding of strFileName and saves the file under the folder  where the vb project is running, this time the file name is made up of unknown characters.
I then use:
StrConv(strFileName, vbUnicode)
and got some of the simplified chinese characters right, and others became "?" or square blocks.
What I don't understand is that the byte array or string which passed into CreateFileW() is already in UTF-8 format, but still requires the StrConv() function to convert it into Unicode format to create a partially correct filename. Does Windows XP/2003 store file names in different format other than UTF-8?
Even if I pass a string without any encoding (e.g. "aaa"), CreateFileW() still creates the file with unreadable file name.
How can I save the file name in Unicode/UTF-8 format correctly without the need of StrConv()?

Thank you very much!

P.S. Please forgive me for my bad english.
Comment
Watch Question

Dana Seaman (danaseaman)
Commented:
Change Declare of CreateFileW so that strFileName is a Long. Then use StrPtr(strFileName) when you call it.
Something like this:

'in module

Option Explicit

'
' CreateFile constants
'
Private Const FILE_SHARE_READ = &H1
Private Const FILE_SHARE_WRITE = &H2
Private Const GENERIC_READ = &H80000000
Private Const GENERIC_WRITE = &H40000000
Private Const OPEN_EXISTING = 3
Private Const OPEN_ALWAYS As Long = 4
Private Const FILE_FLAG_BACKUP_SEMANTICS = &H2000000

Declare Function CreateFileA Lib "kernel32.dll" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByRef lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Declare Function CreateFileW Lib "kernel32.dll" (ByVal lpFileName As Long, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByRef lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long


Public Sub CreateFileTest(ByVal m_PathName As String)

   Dim hFile            As Long
   'hFile = CreateFileA(m_PathName, _
      GENERIC_READ Or GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, _
      ByVal 0&, OPEN_ALWAYS, FILE_FLAG_BACKUP_SEMANTICS, 0)
     
    hFile = CreateFileW(StrPtr(m_PathName), _
      GENERIC_READ Or GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, _
      ByVal 0&, OPEN_ALWAYS, FILE_FLAG_BACKUP_SEMANTICS, 0)
     
   Debug.Print "hFile", hFile
   CloseHandle hFile
End Sub

 

Not the solution you were looking for? Getting a personalized solution is easy.

Ask the Experts

Author

Commented:
It works perfectly! Thank you very much!
Access more of Experts Exchange with a free account
Thanks for using Experts Exchange.

Create a free account to continue.

Limited access with a free account allows you to:

  • View three pieces of content (articles, solutions, posts, and videos)
  • Ask the experts questions (counted toward content limit)
  • Customize your dashboard and profile

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.