Macro pour déplacer des fichiers

Version imprimable

Bonjour,
Je voudrais écrire une macro LibreOffice permettant de déplacer tous les fichiers du dossier "C:\Temp\Dossier1\" vers le dossier "C:\Temp\Archive\". L'équivalent en VBA (MS Office) est le suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub Deplacer(FichierSource As String, DossierCible As String) On Error GoTo err Const OverwriteExisting = True Set objFSO = CreateObject("Scripting.FileSystemObject") 'objFSO.CopyFile FichierSource, FichierCible, OverwriteExisting 'objFSO.MoveFile "C:\FSO\*.txt" , "D:\Archive\" objFSO.MoveFile FichierSource, DossierCible Exit Sub err: Select Case err.Number Case 53: MsgBox "Le fichier est introuvable" Case Else: MsgBox "Erreur inconnue" End Select End Sub
Est-ce que vous avez une proposition? Merci

01/10/2014, 10h59
zoom61

Un début de réponse ici (dans la FAQ)...

Merci pour le tuyau.
J'ai combiné les procédures de liste des fichiers dans un dossier et de copie de fichier et ça a donné ceci, qui marche:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
Sub DeplacerFichiersDuRepertoire(Source,Destination)
	' 
	'Déplace tous les fichiers du répertoire "Source" vers le répertoire "Destination"
	'Les fichiers masqués sont pris en compte 
	'Cet exemple permet aussi de vérifier si le répertoire est vide 
	' 
    Dim CheminSource As String ,CheminDestination As String
    Dim FichierSource As String ,FichierDestination As String 
	Dim Direction As String  
	Dim oSFA As Object
 
	CheminSource = Source 
	CheminDestination = Destination
 
	'Indiquez le répertoire cible 
	'(La procédure ne renvoie pas d'erreur si le dossier n'existe pas)
	Direction=Dir(CheminSource & "*.*",0) 
	' 
	'------ 
	'Un autre exemple pour lister uniquement les fichiers de type PDF : 
	'Direction=Dir("C:\Documents and Settings\michel\dossier\general\*.pdf",0) 
	'------ 
	oSFA = createUNOService ("com.sun.star.ucb.SimpleFileAccess")
	If Resultat="" then 
      MsgBox "Le répertoire est vide."
	Else	
	  Do While Len(Direction) > 0 
 
        Msgbox Direction
        FichierSource = CheminSource & Direction
        FichierDestination = CheminDestination & Direction
        oSFA.move(FichierSource, FichierDestination)
		Direction=Dir() 
	  Loop 
	End If 
End Sub

La procédure est ensuite appelée comme suit :

Code:

1
2
 
 DeplacerFichiersDuRepertoire("C:\Temp\Dossier1\", "C:\Temp\Dossier2\")

Merci infiniment.