Discussion :

[Michael.RHAN]

Hello,

j'utilise la fonctin dir$ pour tester l'existence d'un fichier; en général ça marche bien mais le fichier "Чертежи.doc" n'est bizarrement pas trouvé...

mon code

Code :

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

1
2
3
If Trim(Dir$(wPathFile,0)) = "" Then
		FileIsValide = False
end if

ya un moyen pour que dir$ le trouve ou je dois faire autrement ?

[Michael.RHAN]

la function filecopy a le même problème...

[Jérôme Deniau]

Ben ça sait gérer l’unicode ca? Sinon tu mets les paramètres régionaux de Windows à Russie et ça doit marcher :-)

[Michael.RHAN]

apres quelques recherche, il semblerait que non ça gere pas l'unicode. je ne serais semble til pas le premier a avoir ce genre de soucis.

lidée de changer les paramètre régionaux... pourquoi pas. mais je te laisse expliquer à mon client que je dois changer ça en fonction des milliers de fichiers que je doit traiter... ya pas que la russie...

sinon j'ai trouvé une parade mais limité à windows :

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
Public Function WindowsFileCheck(ByVal wPathFile As String) As Boolean

	Dim objFSO As Variant
	
	On Error GoTo CatchError
	
	WindowsFileCheck = False
	
	If Trim(wPathFile) = "" Then
		Error 9999,"wPathFile is Empty"
		Exit Function
	End If
	
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	WindowsFileCheck = objFSO.FileExists(Trim(wPathFile))
	Set objFSO = Nothing

	Exit Function
CatchError:
	MsgBox "("+Structure_Log+" : "+Cstr(GetThreadInfo (1))+" Call by "+Cstr(GetThreadInfo(10))+")"+Chr(10)+"Error " + CStr(Err) + " : "+Chr(10) + CStr(Error)+". "+Chr(10)+"Line # "+Cstr(Erl),16," ERROR !"
	WindowsFileCheck = False
	Exit Function
End Function

Public Function WindowsFileCopyTo(wPathFileSource As String,wPathFileCible As String,wnbOverWrite As Boolean) As Boolean
	Dim objFSO As Variant
	Dim PathCible As String
	On Error GoTo CatchError
	
	WindowsFileCopyTo = False
	
	If Trim(wPathFileSource) = "" Then
		Error 9999,"wPathFileSource is Empty"
		Exit Function
	End If
	
	If Trim(wPathFileCible) = "" Then
		Error 9999,"wPathFileCible is Empty"
		Exit Function
	End If
	
	PathCible = StrLeftBack(Trim(wPathFileCible),"\")
	
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	If objFSO.FileExists(Trim(wPathFileSource)) = False Then
		Set objFSO = Nothing
		Error 9999,"File source not found : "+wPathFileSource
		Exit Function
	End If
	If objFSO.FolderExists (Trim(PathCible)) = False Then
		Set objFSO = Nothing
		Error 9999,"target folder doesn't exist ("+PathCible+") : "+wPathFileSource+" => "+Trim(wPathFileCible)
		Exit Function
	End If
	If wnbOverWrite = False Then
		If objFSO.FileExists(Trim(wPathFileCible)) = True Then
			Set objFSO = Nothing
			Error 9999,"File target already exist : "+wPathFileCible
			Exit Function
		End If
	End If
	Call objFSO.CopyFile(Trim(wPathFileSource),Trim(wPathFileCible),wnbOverWrite)
	WindowsFileCopyTo = objFSO.FileExists(Trim(wPathFileCible))
	Set objFSO = Nothing

	Exit Function
CatchError:
	MsgBox "("+Structure_Log+" : "+Cstr(GetThreadInfo (1))+" Call by "+Cstr(GetThreadInfo(10))+")"+Chr(10)+"Error " + CStr(Err) + " : "+Chr(10) + CStr(Error)+". "+Chr(10)+"Line # "+Cstr(Erl),16," ERROR !"
	WindowsFileCopyTo = False
	Exit Function
End Function

[Jérôme Deniau]

Utilises NotesStream tu précises Unicode ou UTF8

[Jérôme Deniau]

Sinon tu fais un dir windows dans un fichier et tu le parses , exemple avec un appel à Windows dans LS
cmd /u /c dir "dirpath" > c:\Temp\DirOutput.txt

[Michael.RHAN]

Notesstream fonctionne bien mais implique d'ouvrir le fichier. je vais rester sur ma solution pure windows

Merci