Discussion :

[weabow]

Je développe un freeware de backup. Dedans, j'utilise des fonctions de copie, qui elles-mêmes utilisent des noms de fichiers lus avec la fonction Dir.

Or j'ai de temps en temps des noms de fichiers bizarres, tels que :

çais.pdf

Dans ce nom de fichier, en fait le ç est décomposé en 3 caractères : un c, une sorte d'espace et une sorte de ,.

Si Dir me renvoie correctement ce nom, il est impossible de l'utiliser après, que ce soit avec les fonctions VB ou les api.

Une idée ?

Christian

[petit rabot]

Peux tu mettre ton code

[weabow]

Merci de ta réponse. Voila une procédure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
Public Sub test()
 
Dim lpFindFileData As WIN32_FIND_DATA
Dim hFindFile As Long
Dim fileName As String
Dim CurPath$, TargetPath$, SourcePath$, i&
 
 
CurPath = "\\?\c:\temp\source\*.*"
 
SourcePath = "\\?\c:\temp\source\"
TargetPath = "\\?\c:\temp\target\"
 
hFindFile = FindFirstFile(CurPath, lpFindFileData)
If hFindFile <> INVALID_HANDLE_VALUE Then
Do
fileName = Mid$(lpFindFileData.cFileName, 1, InStr(lpFindFileData.cFileName, Chr$(0)) - 1)
 
If fileName <> "." And fileName <> ".." Then
 
MsgBox CopyFileW(StrConv(SourcePath & fileName, vbUnicode), StrConv(TargetPath & fileName, vbUnicode), 0) & vbCrLf & fileName
 
End If
 
Loop Until FindNextFile(hFindFile, lpFindFileData) = 0
 
End If
 
FindClose hFindFile
 
End Sub

Lorsque j'ai un fichier "banal", cela fonctionne parfaitement. Lorsque j'ai un fichier dont le nom est spécial, cela ne marche plus.

Par exemple :
Проверка организаций правоохранительными и иными контролирующими органами.msg

[DAUDET78]

Je suis sur un projet voisin du tiens et je me suis inspiré de
http://www.xllentsoft.com/downloads.html
rubrique "List all files in the specified location"

Il y a un ZIP avec les sources et un EXE

il n'y a pas de problème avec les caractères accentués à , é ,ù etc

je n'ai pas testé avec des cyrilliques !

[weabow]

Merci. Je regarde cela de suite.

Christian