Bonsoir tout le monde !!
Voilà moi je voudrais que ce code fonctionne avec XP et son outil (merdique certes) de gravure !
J'ai fait le code suivant en VBS (actionné via les tâches pplannifiées) :
sPath = "C:\pestouille\"
sPath2 = "E:\"
Set oFSO = CreateObject("Scripting.FileSystemObject")
sNewestFile = GetNewestFile(sPath)
If sNewestFile <> "" Then
oFSO.CopyFile sPath & sNewestFile, sPath2 & sNewestFile
End If
Function GetNewestFile(ByVal sPath)
sNewestFile = Null
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.
une âme charitable svp
Merci d'avance pour toutes vos réponses
Biz
[purple][font=Comic Sans MS][i][b]Pestouille[/b][/i][/font=Comic Sans MS][/purple]