What line errs?Hello All
I'm not bad on Microsoft Access but I am quite new on VBA codes.
I spent almost 24 hours to get solution below.
I have several csv files I am importing them to table with bellowing code:
Dim FSO As Object, objFolder As Object, objFile As Object Set FSO = CreateObject("Scripting.FileSystemObject") Set objFolder = FSO.GetFolder(Me.MB_Klasor_Konumu) For Each objFile In objFolder.Files If Right(objFile.Name, 3) = "csv" Then DoCmd.TransferText acImportDelim, "MB3", "MB_Sheet_Ham", objFolder & "\" & objFile.Name, False End If i = i Next objFile Set objFile = Nothing Set objFolder = Nothing Set FSO = Nothing
It does work but doesn't work with if files has some special letter like "İ, Ş, Ğ, Ö,Ü, Ç"
I don't know what I should do?
I research for rename files before import but I couldn't found the solution, maybe there is a else trick ?
Is there someone to help me about?
Thank you in advance.