encore un cadeau :lol:

Bidouilleur Messages : 150 Date d'inscription : 30/08/2012 Localisation : DTC

Si comme moi vous en avez marre de copier/coller un dossier vers un autre emplacement (par exemple : du "workspace" d'Aptana vers "www" de EasyPhp)

Code:: 'script copie d'un fichier
Dim oFSO, rep, info
Set oFSO = CreateObject("Scripting.FileSystemObject")

rep = MsgBox ("Etes-vous sur?",vbOKCancel + vbQuestion,"?")
If vbOK Then
oFSO.CopyFolder "D:\Documents and Settings\alexandre.thiau\My Documents\Aptana Studio 3 Workspace\test_intranet","C:\Program Files\EasyPHP-12.1\www\test_intranet",True ' True : pour copier en "écrasant" destination si existe..
MsgBox "Copie terminée",vbOKOnly + vbInformation,"!"
Else If vbCancel = 1 Then
wscript.quit 0
End If
End If

copiez le code dans Notepad++ changez le premier chemin par la cible et le deuxième par l'emplacement souhaité et enregistrer le en .vbs Wink