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 Settings\pestouille01\Local
Settings\Application Data\Microsoft\CD Burning) et rien, il ne se copie
pas.
cs_Pestouille
Messages postés58Date d'inscriptionlundi 23 décembre 2002StatutMembreDernière intervention30 octobre 2008 5 déc. 2006 à 13:46
Merci mais nous avons déjà essayé cette solution et cela ne fonctionne pas !
En fait le graveur est un disk virtuel donc plus ou moins inaccessible :(
Si je trouve une solution, je ne manquerais pas de vous la communiquer ;)
cs_Pestouille
Messages postés58Date d'inscriptionlundi 23 décembre 2002StatutMembreDernière intervention30 octobre 2008 30 oct. 2008 à 14:31
Salut
Désolée mais pas de solution trouvée. Windows place les éléments à graver dans un dossier temporaire avant de les balancer sur le graveur. Ce dossier est evidemment un dossier caché donc inattaquable :(