Remove chinese chars

Hi,

Yeah this is what i need. The code from yesterday works i just to need to be able to rename the excel files.
Names are like WB0068638LNV*CICU8610449*IV*PL笔记本电脑 & CICU8607569*PL.LV*显示器. I rather not share the excel files because it contains customer data. It is

I think it is because these are unicode characters. These files where created on a system with different language settings And can not be read to a string in vba because it is ANSII. Ill try to use Filesystemobject. Hopefully someone can help me out with a solution if that does not work.

Its difficult without files

why not list all the files in the folder to a spreadsheet. There are numerous bits of vba code that do this google it

Sub ListAllFiles()
Dim fs As FileSearch, ws As Worksheet, i As Long
Set fs = Application.FileSearch
With fs
 .SearchSubFolders = False ' set to true if you want sub-folders included
 .FileType = msoFileTypeAllFiles 'can modify to just Excel files eg with msoFileTypeExcelWorkbooks
 .LookIn = "C:\" 'modify this to where you want to serach
 If .Execute > 0 Then
 Set ws = Worksheets.Add
 For i = 1 To .FoundFiles.Count
 ws.Cells(i, 1) = Mid$(.FoundFiles(i), InStrRev(.FoundFiles(i), "\") + 1)
 Next
 Else
 MsgBox "No files found"
 End If
End With
End Sub

do these filenames contain ? or Chinese characters?
can you open these files with the name provided by the spreadsheet?

Hi, thank you all for taking the time to look at my problem.

Sub ListAllFiles()
Dim fs As FileSearch, ws As Worksheet, i As Long
Set fs = Application.FileSearch
With fs
 .SearchSubFolders = False ' set to true if you want sub-folders included
 .FileType = msoFileTypeAllFiles 'can modify to just Excel files eg with msoFileTypeExcelWorkbooks
 .LookIn = "C:\" 'modify this to where you want to serach
 If .Execute > 0 Then
 Set ws = Worksheets.Add
 For i = 1 To .FoundFiles.Count
 ws.Cells(i, 1) = Mid$(.FoundFiles(i), InStrRev(.FoundFiles(i), "\") + 1)
 Next
 Else
 MsgBox "No files found"
 End If
End With
End Sub

This does not work. I get an error 455, which when i google it says filesearch is outdated. I can try to use filesystemobject. I'll try that out today.

from WB0068638LNV*CICU8610449*IV*PL笔记本电脑 & CICU8607569*PL.LV*显示器
what is the result you want ??

CICU8610449*IV*PL
CICU8607569*PL.LV

But anything with non chinese characters is fine. I added 2 files as an example.

I tried a filesystemobject code:

Sub LoopFilesInFolder()

Dim folderName As String
Dim FSOLibrary As FileSystemObject
Dim FSOFolder As Object
Dim FSOFile As Object


folderName = "C:\Users\samjanss\Documents\Proberen\chinese trein\"


Set FSOLibrary = New FileSystemObject
Set FSOFolder = FSOLibrary.GetFolder(folderName)
Set FSOFile = FSOFolder.Files


For Each FSOFile In FSOFile

 
    Debug.Print FSOFile.Name

Next


Set FSOLibrary = Nothing
Set FSOFolder = Nothing
Set FSOFile = Nothing

End Sub

This show the following result:

• CICU8052440;*IV*PL?????.xls
• CICU8052706*IV*PL?????.xls
• CICU8054247*PL.LV*???.xls
• CICU8054817IV*PL?????.xls
• CICU8054843*IV*PL?????.xls
• CICU8055270*PL.LV*???.xls
• CICU8606705*PL.LV*???.xls

Thank you all for trying to help. I solved it. For those interested, ill post the code. I used the Like statement when renaming the file.

Sub LoopFilesInFolder()

Dim folderName As String
Dim FSOLibrary As FileSystemObject
Dim FSOFolder As Object
Dim FSOFile As Object
Dim x As Integer
x = 1


folderName = "C:\Users\samjanss\Documents\Proberen\chinese trein\"


Set FSOLibrary = New FileSystemObject
Set FSOFolder = FSOLibrary.GetFolder(folderName)
Set FSOFile = FSOFolder.Files


For Each FSOFile In FSOFile
        If FSOFile.Name Like "*PL*" Then FSOFile.Name = "PL" & x & ".xls"
 x = x + 1
 
    

Next


Set FSOLibrary = Nothing
Set FSOFolder = Nothing
Set FSOFile = Nothing

End Sub