VB²»ÄÜ´ò¿ªÎļþÃûÖаüº¬Unicode×Ö·ûµÄÎļþ,¸ÃÔõô°ì?

ÀýÈ磬ÏÈÔÚCÅÌÏ´´½¨ÏÂÒ»¸öÃû×ÖÖаüÀ¨Unicode×Ö·ûµÄÎļþ£º
ÏÈ´´½¨C:\1.txt£¬È»ºóÔÚÎļþÃûÖмÓÈëUnicode×Ö·û£º

Dim FSO As Object, fName As Object
Set FSO = CreateObject("scripting.filesystemobject")
Set fName = FSO.getfile("C:\1.txt")
fName.Name = "123456" & ChrB(&H21) + ChrB(&H22) & ".txt"

È»ºóÓÃÏÂÃæµÄ´úÂ룺
        CommonDialog1.MaxFileSize = 128
        CommonDialog1.FileName = ""
        CommonDialog1.Flags = cdlOFNExplorer + cdlOFNFileMustExist + cdlOFNLongNames
        CommonDialog1.Filter = "Îļþ(*.txt)|*.txt"
        CommonDialog1.ShowOpen
        RichTextBox1.LoadFile CommonDialog1.FileName

ÓÃÎļþ´ò¿ª´°ÌåÑ¡ÖÐÕâ¸öÎļþ£º

½á¹û±¨´í£º
²»ÄÜ·ÃÎÊÖ¸¶¨µÄ·¾¶/ÎļþÃû

ÈçºÎ²ÅÄÜÈÃRichTextBox1¿ÉÒÔ¶ÁÈëÕâ¸öÃû×ÖÖаüÀ¨Unicode×Ö·ûµÄÎļþÖеÄÄÚÈÝ£¿

---

ÓÃ:shell("explorer ÎļþÃû") ÊÔÊÔ

---

ÔÚWindowsÏÂÓüÇʱ¾µÈ£¬ÊÇ¿ÉÒÔ´ò¿ªÕâ¸öTXTÎļþµÄ

---

fName.Name = "123456" & ChrB(&H21) + ChrB(&H22) & ".txt"
Ö»ÊÇÄãÕâ¸öÎļþÃû¶Ô»°¿ò²»ÈÏ£¬ÓëÎļþÄÚÈÝÎÞ¹Ø

ÄãÕâÑùÊÔÊÔ£ºfName.Name = "123456" & "xxx" & ".txt"

---

ÒýÓÃ

fNa