FAQ LibreOffice et Apache OpenOfficeConsultez toutes les FAQ

1
2
3
4
5
6
7
8
9
10
11
Sub VerifierExistenceFichier_V01  
Dim oSFA As Object 
Dim Fichier As String, urlFichier As String 
  
oSFA = createUnoService( "com.sun.star.ucb.SimpleFileAccess" )  
Fichier = "C:\Documents and Settings\michel\dossier\nomFichier.txt"  
  
urlFichier = ConvertToURL( Fichier )  
If oSFA.exists( urlFichier ) Then MsgBox "Le fichier existe." 
  
End Sub

1
2
3
4
5
6
7
8
Sub VerifierExistenceFichier_V02 
Dim Fichier As String, urlFichier As String 
  
Fichier = "C:\Documents and Settings\michel\dossier\nomFichier.txt"  
  
urlFichier = ConvertToURL( Fichier )  
MsgBox FileExists( urlFichier ) 
End Sub

1
2
3
4
5
6
7
8
9
10
Sub CopierFichier 
Dim Source As String , Destination As String 
Dim oSFA As Object 
  
Source = ConvertToUrl("C:\monFichier.ods")  
Destination = ConvertToUrl("C:\Documents and Settings\michel\dossier\monFichier.ods")  
  
oSFA = createUNOService ("com.sun.star.ucb.SimpleFileAccess")  
oSFA.copy(Source, Destination) 
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub selectionFichier_puisOuverture()  
Dim Fichier As Object , ShExec As Object  
Dim X As Integer  
  
Fichier = CreateUnoService("com.sun.star.ui.dialogs.FilePicker") 
'Spécifie le chemin par défaut lors de l'affichage de la boîte de dialogue  
Fichier.SetDisplayDirectory("C:\Documents and Settings\michel\dossier")  
'Affiche la boîte de dialogue "Ouvrir" 
X = Fichier.Execute()  
  
If X = 1 Then  
  MsgBox ConvertFromURL( Fichier.Files(0) ) 
  
  'Permet d'ouvrir le fichier sélectionné 
  ShExec = createUnoService("com.sun.star.system.SystemShellExecute")  
  ShExec.execute(Fichier.Files(0), "", 0)  
End If  
End Sub

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
Sub Test() 
    proprietesFichier_getFile "C:\Documents and Settings\mimi\dossier\Nom Classeur.xls" 
  
    proprietesFichier_getFile "C:\dossier\monAppli.exe" 
  
    proprietesFichier_getFile "C:\dossier\le fichier.pdf" 
End Sub 
  
  
Sub proprietesFichier_getFile( Fichier As String ) 
  Dim oObj As Object , Cible As Object 
  Dim Valeur As Object 
  Dim Resultat As String 
  
  oObj = createUnoService("com.sun.star.bridge.OleObjectFactory")  
  Cible = oObj.createInstance("Scripting.fileSystemObject") 
  Valeur = Cible.GetFile(Fichier) 
  
  Resultat = "Chemin : " & Valeur.ParentFolder.Path & Chr(10) & Chr(10) & _ 
    "Chemin court : " & Valeur.shortpath & Chr(10) & Chr(10) & _ 
    "Nom court : " & Valeur.ShortName & Chr(10) & Chr(10) & _ 
    "Date creation : " & CDate( Valeur.DateCreated.Value ) & Chr(10) & Chr(10) & _ 
    "Date derniere modification : " & CDate( Valeur.DateLastModified.Value ) & Chr(10) & Chr(10) & _ 
    "Date dernier acces : " & CDate( Valeur.DateLastAccessed.Value ) & Chr(10) & Chr(10) & _ 
    "Taille fichier : " & Valeur.Size & " octets" & Chr(10) & Chr(10) & _ 
    "Type fichier : " & Valeur.Type & Chr(10) & Chr(10) & _ 
    "Extension fichier : " & Cible.GetExtensionName(Valeur) & Chr(10) & Chr(10) & _ 
    "Nom fichier sans extension : " & Cible.GetBaseName(Valeur) & Chr(10) & Chr(10) & _ 
    "Nom fichier : " & Cible.GetFileName(Valeur) & Chr(10) & Chr(10) & _ 
    "Chemin et nom complet : " & Cible.GetAbsolutePathName(Valeur) 
  
  MsgBox Resultat 
  
End Sub

1
2
3
4
5
6
7
Sub Main 
  Dim Fichier As String 
  
  'La procédure renvoie une erreur si le fichier n'existe pas.   
  Fichier = "C:\repertoire\NomFichier.pdf" 
  MsgBox FileDateTime( Fichier ) 
End Sub

1
2
3
4
5
6
7
Sub getDirectory 
	'Charge la bibliothèque "Tools" (voir dans "macros et boite de dialogue LibreOffice dans la fenetre de gauche) 
	'Bibliothèque a ne charger qu'une seule fois 
	globalscope.basicLibraries.loadLibrary("Tools") 
	'Affiche le répertoire du fichier courant 
	print DirectoryNameoutofPath( ThisComponent.getURL() , "/" ) 
End Sub