How yo Kill File Path has Unsupported Language ?

[Dossfm0q]

Greetings
How to VBA read "C:\Users\User\desktop\ملف عربي.xlsx"

it converts "ملف عربي" to "??? ????"

Sub KillFile()

dim FilePath as string
FilePath= "C:\Users\User\desktop\ملف عربي.xlsx"
Kill FilePath

end sub

Sub KillFile()


Dim FilePath As String
FilePath = "C:\Users\User\desktop\[B][COLOR=#ff0000]??? ????[/COLOR][/B].xlsx"
Kill FilePath




End Sub

THX

 

[yky]

What's your default language? Do you want to delete only files whose name contains this particular language or you have many files in this language but you only want to delete some, but not all, of them? Do you have files in other non-ASCII language (you have file names in several different languages)?

 

[Jaafar Tribak]

@Dossfm0q

The VB Editor doesn't support unicode characters so you will first need to change the language for non-unicode programs as follows :

1- Go to Control Panel
2- Administrative Tab
3- Change System Locale
4- Select the language (Arabic in your case)
5-Reboot your computer for the new settings to take effect.
6- In the VBA Editor,go to Tools>Options>Editor Format> and choose Arabic font

Now you should be able to use code like this :

Sub Test()
    Dim sFilePathName As String
    sFilePathName = "[COLOR=#333333]C:\Users\User\desktop\[/COLOR][B][COLOR=#ff0000]ملف عربي[/COLOR][/B].xlsx"
    If Len(Dir(sFilePathName)) Then Kill sFilePathName
End Sub

 

[Dossfm0q]

Mr: Jaafar Tribak Many Thanks Sir
It works

 

[Dossfm0q]

yky Thank you For Your advice and respond Sir

 

[Dossfm0q]

Writing Code in Arabic into VBA Project works very well

But after test I have Err which highlighted in Yellow, when mouse go over highlighted line appear Error

https://1drv.ms/f/s!AuVczTBE49WklkpwAXh71ui0871c

 

[Jaafar Tribak]

Writing Code in Arabic into VBA Project works very well

But after test I have Err which highlighted in Yellow, when mouse go over highlighted line appear Error

https://1drv.ms/f/s!AuVczTBE49WklkpwAXh71ui0871c

What's the error number ?