cs_vroumm
Messages postés8Date d'inscriptionjeudi 17 octobre 2002StatutMembreDernière intervention 8 décembre 2002
-
17 oct. 2002 à 15:42
cs_6Po
Messages postés105Date d'inscriptionjeudi 16 mai 2002StatutMembreDernière intervention22 janvier 2009
-
17 oct. 2002 à 16:59
flo
je voudrais savoir comment faire pour ouvrir un fichier, avec l'acces disque. c'est à dire drivr, dir et file. En fait comme, avec n'importe quel logiciel lorsqu'on ouvre un fichier.
merci
cs_vroumm
Messages postés8Date d'inscriptionjeudi 17 octobre 2002StatutMembreDernière intervention 8 décembre 2002 17 oct. 2002 à 16:11
flo
merci pour ta réponse. mais en fait ecrire et lire un fichier avec les fonctions output et input ça je sais faire.
Ce que je veux faire c'est ouvrir le fichier en faisant par ex fichier ouvrir et en sélectionnat le disque et le répertoire. (comme dans word où on va chercher le fichier dans le repertoire qui nous convient.
merci
Set WshShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set dossier = fso.GetFolder(path)
Set fichiers = Dossier.Files
For Each fichier in fichiers
'MsgBox "shortPath=" & fichier.ShortPath & vbCrLf & "Path=" & fichier.Path
'MsgBox "shortName=" & fichier.ShortName & vbCrLf & "Name=" & fichier.Name
If Left(fichier.name,6) = "SLIFAC" Then
WshShell.Run fichier.ShortPath
WScript.Sleep(500)
If Left(fichier.name,22) = "SLIFAC 32 - 61 Espagne" Then
WshShell.SendKeys "^p"
WScript.Sleep(500)
WshShell.SendKeys "{ENTER}" 'imprimer => ok
WScript.Sleep(2000)
WshShell.SendKeys "{ENTER}" 'poursuivre l'impression => ok
WScript.Sleep(2000)
WshShell.SendKeys "%(fq)" 'fermeture du document
End If
End If
Next