Bonjour à tous
Je souhaiterais automatiquement insérer une police dans C:\WINDOWS\Fonts
Voila mon code pour le moment
1 2 3 4 5 6 7 8
|
set Fso = Createobject("Scripting.FileSystemObject")
If fso.FileExists( "C:\WINDOWS\Fonts\code 39.ttf") = False Then
fso.CopyFolder "\code 39.ttf", "C:\WINDOWS\Fonts\", True
End If |
Le chemin d'accès au fichier est le même que la page qui contient ce code
L'erreur est la suivante :
1 2 3 4
|
Microsoft VBScript runtime (0x800A004C)
Path not found
/test/Etatscave.asp, line 42 |
La ligne 42 est celle ci
fso.CopyFolder "\code 39.ttf", "C:\WINDOWS\Fonts\", True
Si quelqu'un a une idée ...
Partager