Discussion :

[toss.net]

Bonjour,
Je suis obligé de passer un petit utilitaire en Service Windows.

Mais la fonction Dir() ne fonctionne pas
Que le Path soit en UNC ou normal, cela ne fonctionne pas : Test sur \\ServerData\public\testunc ou R:\testunc


- J'ai donc essayé l'API OpenFile (http://support.microsoft.com/kb/168519),
- Le oFile.FileExists de Scripting.FileSystemObject...
- L'API FindFirstFile()...

Après je me suis dit qu'en services, Windows ne connait pas le réseau alors j'ai tester le partage sur le C:\Documents and Settings\All Users\Documents\testunc et là ok mon ordi s'appelle TOSS et pourtant \\TOSS\Documents\testunc ..

En mode service que c:\ fonctionne donc ?

[Overcrash]

Bonsoir,

Tu peux nous montrer le bout de code qui ne fonctionne pas stp

[toss.net]

J'ai travaillé sur un petit exe à part.
La fonction DIR() je pense qu'il n'y a pas besoin de te faire voir

La fonction avec OpenFile :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function DIR_UNC(ByVal sPath) As Long
    'http://support.microsoft.com/kb/168519
       Dim result As Long
       Dim strucFname As OFSTRUCT
 
       result = OpenFile(sPath, strucFname, OF_EXIST)
DIR_UNC = result
Exit Function
       'If result <> -1 Then
       '    DIR_UNC = result 'MsgBox "File found"
       'Else
       '    DIR_UNC = False 'MsgBox "File not found"
       'End If
End Function

Puis :

Code :

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

1
2
3
4
5
6
Public Function FileExists(sFullPath As String) As Boolean
    Dim oFile As Scripting.FileSystemObject
    Set oFile = New Scripting.FileSystemObject
    FileExists = oFile.FileExists(sFullPath)
    Set oFile = Nothing
End Function

Aussi :

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Function FileExists2(ByVal sSource As String) As Boolean
   On Local Error Resume Next
   Dim WFD As WIN32_FIND_DATA
   Dim hFile As Long
 
   hFile = FindFirstFile(sSource, WFD)
   FileExists2 = hFile <> INVALID_HANDLE_VALUE
 
   Call FindClose(hFile)
End Function

Et sur le Load :

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
Private Sub Form_Load()
    Open "c:\Services.log" For Append As nNumFile
        Print #nNumFile, ""
        Print #nNumFile, Now & "|PAss :" & FileExists2("\\TOSS\Documents\testunc\file.txt")
    Close nNumFile
 
    Open "c:\Services.log" For Append As nNumFile
        Print #nNumFile, Now & "|PAss 0:" & FileExists2("C:\Documents and Settings\All Users\Documents\testunc\file.txt")
    Close nNumFile
 
    Open "c:\Services.log" For Append As nNumFile
        Print #nNumFile, Now & "|PAss 3:" & DIR_UNC("\\TOSS\Documents\testunc\file.txt")
    Close nNumFile
 
    Open "c:\Services.log" For Append As nNumFile
        Print #nNumFile, Now & "|PAss 5:" & DIR_UNC("C:\Documents and Settings\All Users\Documents\testunc\file.txt")
    Close nNumFile
 
    Open "c:\Services.log" For Append As nNumFile
        Print #nNumFile, Now & "|PAss 4:" & Dir("C:\Documents and Settings\All Users\Documents\testunc\file.txt", vbHidden)
    Close nNumFile
 
    Open "c:\Services.log" For Append As nNumFile
        Print #nNumFile, Now & "|PAss 1:" & Dir("\\TOSS\Documents\testunc\file.txt")
    Close nNumFile
End Sub

[Overcrash]

Si je comprend bien tu veux juste tester si le fichier existe ?

[toss.net]

En effet, comme je l'ai expliqué, le dir() sur un chemin réseau ou UNC renvoi une erreur 52...
Pour l'instant je fais que les données soit sur le C:\ mais c'est génant

[Overcrash]

Ha oui je vois ce que tu veux dire.
J'ai pallier a ce probleme en faisant ceci, je sais que ce n'est pas très élégant mais ca a résolu mon probleme.

Je ne sais pas si ca peut te servir ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Adressecompt = "\\Serveur2\Exploitation\Applications\Config-log\[FL]Automate_listing.log"
 
        On Error GoTo back
        If Dir(Adressecompt, vbNormal) = "" Then          'c'est que le fichier n'existe pas
back:
 
      ' Test sur les lettres des disque dur si pas D: ou pas de C: on n'enregistre pas.
            If Dir("C:\Program Files\Automate_Listing", vbDirectory) <> "" Then
                AdresseComptLocal = "C:\Program Files\Automate_listing\[FL]cache_automate_listing.log"  ' si sur C:
            ElseIf Dir("D:\Program Files\Automate_Listing", vbDirectory) <> "" Then
                AdresseComptLocal = "D:\Program Files\Automate_listing\[FL]cache_automate_listing.log" ' si sur D:
            Else
                Exit Sub
            End If

[toss.net]

ok merci je vais creuser ça

[Overcrash]

Fais surtout beaucoup de test.

Mais dans la logique j'ai voulu lever l'exception et la traiter.
Si tu trouve une solution plus élégante je suis bien entendu preneur

[toss.net]

La meilleure solution pour moi sera de finir de tout passer en C#... mais bon, ca peut pas se faire rapidement.
Mais je te tiens au courant ici de la finalité que je donne à ce problème

[250rgv]

Voici un bout de code d'un service "test" qui attendait qu'un fichier d'un certain nom apparaisse dans un répertoire donné lors de son installation.

Il faut ajouter une référence au "Microsoft Scripting Runtime" dans ton projet.

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
 
Private Function Traitement(ByVal iter As Long) As Boolean
 
	Dim nom As String
	Dim fic As String
	Dim Fichier As File
	Dim Chemin As String
 
	On Error GoTo Traitement_Error
	' récupération du chemin
	' ...
 
	Traitement = True
	With New FileSystemObject
		For Each Fichier In .GetFolder(Chemin).Files
			If UCase(Fichier.Name) Like UCase(NomFic & ".*") Then
				fic = Fichier.Name
				Fichier.Delete
				App.LogEvent mNom & " - itération n°" & iter & ", fichier " & fic, vbLogEventTypeInformation
				Exit For
			End If
		Next Fichier
	End With
 
	If fic <> NomFic & ".FIN" Then
		Traitement = True
	Else
		App.LogEvent mNom & " - FIN DEMANDEE (iter=" & iter & ")", vbLogEventTypeInformation
		Traitement = False
	End If
	Exit Function
 
Traitement_Error:
	Dim s As String
	s = " Ligne n°" & Erl & " , Erreur n°" & Err.Number & " : " & Err.Description
	App.LogEvent s, vbLogEventTypeError
	Traitement = False
End Function

Par contre, suivant le compte utilisé, le service avait ou non accès au répertoire réseau ou il devait chercher le fichier (je ne me souviens plus si le nom était en UNC ou pas).
Network Service, LocalSystem, Utilisateur du domaine : OK
LocalService : pas OK

Bon courage