Vérifier la présence d'un lot de codes-barres

Sub VerifiePresenceCodeBarre()
REM Ouvre un fichier en ecriture
	Dim oNet, sUsername, FSO
	Dim Chemin, MonFichier
	Set oNet=CreateObject("WScript.Network")
	sUsername=oNet.UserName
	Set oNet = Nothing
	Chemin = "c:\oclcpica\WinIBW30\Profiles\" & sUsername & "\CodesBarresIntrouvables.txt"
	Set FSO = CreateObject("Scripting.FileSystemObject")
	Chemin = FSO.GetAbsolutePathName(Chemin)
	Set MonFichier = FSO.OpenTextFile(Chemin,2,True)
Rem Verifie. Si le code-barre n'est pas la, note le code-barre dans le fichier
	Dim CodeBarre, Exemplaire
	Dim LesCodesBarres
	LesCodesBarres = Array("0261465389","0261828009","0261463866")
	For Each CodeBarre In LesCodesBarres
		Application.ActiveWindow.Command "che cod " & CodeBarre
		If Not Application.ActiveWindow.Messages.Count = 0 Then
			MonFichier.WriteLine CodeBarre
		End If
	Next
	MsgBox "Les codes-barres non trouvés sont dans CodesBarresIntrouvables.txt"
End Sub

Enregistre les codes-barres non trouvés dans un fichier externe.