Bonsoir tout le monde !!

Vous allez me trouver casse-pieds mais ma blondeur ( et mon super niveau débutante) me le permet :p

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:\cecile\"
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 :p

Merci d'avance pour toutes vos réponses

Biz
Cécile

merci pour ton code !! il m'a permis de glander un peu au taf ^^ !!!!
10/10

Félicitations pour ton programme il m'est très utile !!

@+

Merci pour le code !!! 9/10

z980x ne devait pas se sentir bien ce jour là !!!
ton jeu est super !! félicitations !!!

félicitations pour le code !! il m'a bcp aidée !!