Voil=E0 mon petit soucis :
j'ai un script qui fonctionne nickel lorsque je l'ex=E9cute de lecteur
physique =E0 lecteur physique (C:\ vers C:\ ou D:\) par contre cela se
complique quand je veux qu'il copie un fichier vers mon graveur.
Ainsi le code suivant :
sPath =3D "C:\cecile\"
sPath2 =3D "E:\"
Set oFSO =3D CreateObject("Scripting.FileSystemObject")
sNewestFile =3D GetNewestFile(sPath)
Set oFSO =3D CreateObject("Scripting.FileSystemObject")
Set oFolder =3D oFSO.GetFolder(sPath)
Set oFiles =3D oFolder.Files
For Each oFile In oFiles
On Error Resume Next
If IsNull(sNewestFile) Then
sNewestFile =3D oFile.Path
dPrevDate =3D oFile.DateLastModified
Elseif dPrevDate < oFile.DateLastModified Then
sNewestFile =3D oFile.Name
End If
On Error Goto 0
Next
If IsNull(sNewestFile) Then sNewestFile =3D ""
GetNewestFile =3D sNewestFile
End Function
D=E8s que je le lance via les taches plannifi=E9es , il me dit
"permission refus=E9e" quand il y a un cd vierge dedans
Du coup, j'ai essay=E9 de le copier dans le dossier de gravure de
windows (chez moi : C:\Documents and Settings\pestouille01\Local
Settings\Application Data\Microsoft\CD Burning) et rien, il ne se copie
pas.
Quelqu'un quel part voudrait-il bien me sauver ?? :p
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacques93
Bonjour foulon.cecile, a écrit :
Bonsoir tout le monde !!!
Voilà mon petit soucis : j'ai un script qui fonctionne nickel lorsque je l'exécute de lecteur physique à lecteur physique (C: vers C: ou D:) par contre cela se complique quand je veux qu'il copie un fichier vers mon graveur.
Ainsi le code suivant :
sPath = "C:cecile" sPath2 = "E:"
Set oFSO = CreateObject("Scripting.FileSystemObject") sNewestFile = GetNewestFile(sPath)
Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFolder = oFSO.GetFolder(sPath) Set oFiles = oFolder.Files
For Each oFile In oFiles On Error Resume Next If IsNull(sNewestFile) Then sNewestFile = oFile.Path dPrevDate = oFile.DateLastModified Elseif dPrevDate < oFile.DateLastModified Then sNewestFile = oFile.Name End If On Error Goto 0 Next
If IsNull(sNewestFile) Then sNewestFile = ""
GetNewestFile = sNewestFile
End Function
Dès que je le lance via les taches plannifiées , il me dit "permission refusée" quand il y a un cd vierge dedans Du coup, j'ai essayé de le copier dans le dossier de gravure de windows (chez moi : C:Documents and Settingspestouille01Local SettingsApplication DataMicrosoftCD Burning) et rien, il ne se copie pas.
Quelqu'un quel part voudrait-il bien me sauver ?? :p
Merci d'avance pour toutes vos réponses
Biz
Cécile
Peut être une piste :
http://faq.vb.free.fr/index.php?question1
La gravure est différente d'une copie.
-- Cordialement,
Jacques.
Bonjour foulon.cecile,
foulon.cecile@gmail.com a écrit :
Bonsoir tout le monde !!!
Voilà mon petit soucis :
j'ai un script qui fonctionne nickel lorsque je l'exécute de lecteur
physique à lecteur physique (C: vers C: ou D:) par contre cela se
complique quand je veux qu'il copie un fichier vers mon graveur.
Ainsi le code suivant :
sPath = "C:cecile"
sPath2 = "E:"
Set oFSO = CreateObject("Scripting.FileSystemObject")
sNewestFile = GetNewestFile(sPath)
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(sPath)
Set oFiles = oFolder.Files
For Each oFile In oFiles
On Error Resume Next
If IsNull(sNewestFile) Then
sNewestFile = oFile.Path
dPrevDate = oFile.DateLastModified
Elseif dPrevDate < oFile.DateLastModified Then
sNewestFile = oFile.Name
End If
On Error Goto 0
Next
If IsNull(sNewestFile) Then sNewestFile = ""
GetNewestFile = sNewestFile
End Function
Dès que je le lance via les taches plannifiées , il me dit
"permission refusée" quand il y a un cd vierge dedans
Du coup, j'ai essayé de le copier dans le dossier de gravure de
windows (chez moi : C:Documents and Settingspestouille01Local
SettingsApplication DataMicrosoftCD Burning) et rien, il ne se copie
pas.
Quelqu'un quel part voudrait-il bien me sauver ?? :p
Voilà mon petit soucis : j'ai un script qui fonctionne nickel lorsque je l'exécute de lecteur physique à lecteur physique (C: vers C: ou D:) par contre cela se complique quand je veux qu'il copie un fichier vers mon graveur.
Ainsi le code suivant :
sPath = "C:cecile" sPath2 = "E:"
Set oFSO = CreateObject("Scripting.FileSystemObject") sNewestFile = GetNewestFile(sPath)
Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFolder = oFSO.GetFolder(sPath) Set oFiles = oFolder.Files
For Each oFile In oFiles On Error Resume Next If IsNull(sNewestFile) Then sNewestFile = oFile.Path dPrevDate = oFile.DateLastModified Elseif dPrevDate < oFile.DateLastModified Then sNewestFile = oFile.Name End If On Error Goto 0 Next
If IsNull(sNewestFile) Then sNewestFile = ""
GetNewestFile = sNewestFile
End Function
Dès que je le lance via les taches plannifiées , il me dit "permission refusée" quand il y a un cd vierge dedans Du coup, j'ai essayé de le copier dans le dossier de gravure de windows (chez moi : C:Documents and Settingspestouille01Local SettingsApplication DataMicrosoftCD Burning) et rien, il ne se copie pas.
Quelqu'un quel part voudrait-il bien me sauver ?? :p
