Discussion :

[Invité]

Rebonjour

J'essai de voir si je peux "archiver" un fichier en suivant ceci

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
Sub Archive
Set wshNetwork = CreateObject("Wscript.Network")
	strAnswer = window.prompt("Quel fichier rechercher?", "\\127.0.0.1\inventory\HTA\" & wshNetwork.ComputerName & ".xls")
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	If objFSO.FileExists("\\127.0.0.1\inventory\HTA\" & wshNetwork.ComputerName & ".xls")Then
 
	intAnswer = _
    Msgbox("Le fichier est bien présent...Voulez-vous archiver la fiche?", _
        vbYesNo, "Move Files")
 
If intAnswer = vbYes Then
    Dim oFSO
	Set oFSO = CreateObject("Scripting.FileSystemObject")
	oFSO.MoveFile "\\127.0.0.1\inventory\HTA\" & wshNetwork.ComputerName & ".xls","\\127.0.0.1\inventory\HTA\Archive\" & wshNetwork.ComputerName & "-Archive.xls"
	MsgBox "Fichier Archivé." 
Else
    Msgbox "Processus d'archive interrompu."
    End If
    Else 
    MsgBox "Fichier non répertorié."
End If
End Sub

De 1 - est ce que ma logique est bonne?
2- Le code est-il correct? (ça fonctionne outre le point 3)
3- Une erreur persiste si le fichier de destination (archive) est présent...devrais je faire un autre if FileExists?

Merci

[ProgElecT]

Salut

3- Une erreur persiste si le fichier de destination (archive) est présent...devrais je faire un autre if FileExists?

Oui, juste avant le MoveFile, si le fichier existe tu le supprimes, c'est la condition impérative pour que ton Move soit garanti.

[Invité]

Bon j'ai essayé différentes choses, entre autre...je n'arrive pas a saisir l'imbrication

une idée pour m'orienter

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
Sub Archive
Set wshNetwork = CreateObject("Wscript.Network")
	strAnswer = window.prompt("Quel fichier rechercher?", "\\IP\iventory\HTA\" & wshNetwork.ComputerName & ".xls")
	Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("\\IP\inventory\HTA\" & wshNetwork.ComputerName & ".xls")Then
	intAnswer = _
    Msgbox("Le fichier est bien présent...Voulez-vous archiver la fiche?", _
        vbYesNo, "Move Files")
			If intAnswer = vbYes Then
    			Dim oFSO
If objFSO.FileExists ("\\IP\inventory\HTA\Archive\" & wshNetwork.ComputerName & "-Archive.xls") Then
    extAnswer = _
    Msgbox("Le fichier est bien présent...Voulez-vous le supprimer de l'archive?", _
        vbYesNo, "Delete Files")
        	If extAnswer = vbYes Then
        		MsgBox "Fichier Archivé."
    			objFSO.DeleteFile "\\IP\inventory\HTA\Archive\" & wshNetwork.ComputerName & "-Archive.xls",True
				objFSO.MoveFile "\\IP\inventory\HTA\" & wshNetwork.ComputerName & ".xls","\\IP\inventory\HTA\Archive\" & wshNetwork.ComputerName & "-Archive.xls"
				Else 
				MsgBox "Fichier archive présent vérifier Inventaire"
				End If
			Else
    			Msgbox "Processus d'archive interrompu."
    		End If
 
Else 
    MsgBox "Fichier non répertorié."
End If
End If
End Sub

[l_autodidacte]

L'indentation du code te permet de mieux voir les choses, j'ai utilisé ici des tabulations un peu "longues" dans le but de mieux séparer les différentes conditions :

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
Sub Archive
	Set wshNetwork = CreateObject("Wscript.Network")
	strAnswer = window.prompt("Quel fichier rechercher?", "\\IP\iventory\HTA\" & wshNetwork.ComputerName & ".xls")
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	If objFSO.FileExists("\\IP\inventory\HTA\" & wshNetwork.ComputerName & ".xls")Then
		intAnswer = _
		Msgbox("Le fichier est bien présent...Voulez-vous archiver la fiche?", _
			vbYesNo, "Move Files")
		If intAnswer = vbYes Then
			Dim oFSO
			If objFSO.FileExists ("\\IP\inventory\HTA\Archive\" & wshNetwork.ComputerName & "-Archive.xls") Then
				extAnswer = _
				Msgbox("Le fichier est bien présent...Voulez-vous le supprimer de l'archive?", _
				vbYesNo, "Delete Files")
				If extAnswer = vbYes Then
					MsgBox "Fichier Archivé."
					objFSO.DeleteFile "\\IP\inventory\HTA\Archive\" & wshNetwork.ComputerName & "-Archive.xls",True
					objFSO.MoveFile "\\IP\inventory\HTA\" & wshNetwork.ComputerName & ".xls","\\IP\inventory\HTA\Archive\" & wshNetwork.ComputerName & "-Archive.xls"
				Else 
					MsgBox "Fichier archive présent vérifier Inventaire"
				End If
			Else
				Msgbox "Processus d'archive interrompu."
			End If
 
		Else 
			MsgBox "Fichier non répertorié."
		End If
	End If
End Sub