Dominoarea.org Index du Forum Dominoarea.org
 Forum, Téléchargement Lotus Domino/Notes en Français 
 FAQFAQ   PartenairesPartenaires   RechercherRechercher   Liste des MembresListe des Membres   Groupes d'utilisateursGroupes d'utilisateurs 
 S'enregistrerS'enregistrer   ConnexionConnexion 

La date/heure actuelle est 30 Juil 2010 à 00:41
Toutes les heures sont au format UTC + 1		 Voir les nouveaux messages depuis votre dernière visite
Voir les messages sans réponses
 Index du Forum » IBM-Lotus Domino » Trucs et Astuces » Développement » LotusScript » Gestion de fichiers
Parcourir un disque dur et detecter les boites d'archive
Modérateurs: Modérateur
Poster un nouveau sujet   Répondre au sujet Voir le sujet précédentVoir le sujet suivant
Page 1 sur 1 [1 message]  
Auteur Message
billbock
Modérateur
Modérateur


Inscrit le: 15 Fév 2007
Messages: 278
Warnings: 0 0 Warnings
Spécialité: Non spécifié
Localisation: paris
Pays:
Sexe:
Age: 36
Navigateur:
 Parcourir un disque dur et detecter les boites d'archive
Code:
Sub Parcoursdrive(path As String)
path est le disque parcouru (ex : D:\)
   On Error Goto er
   Dim pathname As String
   Dim repname As String
   Dim filename As String
   Dim dbTraite As NotesDatabase
   Dim inbox As NotesView
   Dim sent As NotesView
   Dim DirList As Variant
   Dim j As Integer
   Dim k As Integer
   Redim DirList(0)
   Dim sep As String
   If Instr(sess.Platform, "Windows") > 0 Then
      sep = "\"
   Else
      sep = "/"
   End If
   Print path
   
   Chdir(path)
      'pour chaque rep recuperation des fichiers nsf
   'recup nom modele et <> id replique
   'si identique> archive
   pathName$ = path+"*.nsf"
   fileName$ = Dir$(pathName$, 0)
   Do While fileName$ <> ""
      Set dbTraite = sess.GetDatabase("",path + "\" + filename)
      If  dbTraite.IsOpen Then
         'test si id replique identique
         If idreplica = dbTraite.ReplicaID Then
            Goto suite
         End If
         'test presence $Inbox
         Set inbox = dbtraite.GetView("$Inbox")
         If inbox Is Nothing Then Goto suite
         'test presence $sent
         Set sent = dbtraite.GetView("$Sent")
         If sent Is Nothing Then Goto suite
         'test template mailbox via template name
         If  iEntryInList(dbtraite.DesignTemplateName,listtemplate) = 0 Then Goto suite
         Call addtoarray(listeArchive,a)
         listeArchive(a) = dbTraite.FilePath
      End If
suite :
      fileName$ = Dir$()
   Loop
   
   repname = Dir(path, 16)
   Do While repname <> ""
      k=k+1
      If(repname <> ".")And(repname<>"..") Then
         If FileExist(path+repname) = False Then
            Parcoursdrive(path+repname + sep)
            Chdir(path)
         Else
            'Exit Sub
         End If
         
      End If
      repname = Dir(path, 16)
      For j = 1 To k
         repName$ = Dir$()
      Next
      
   Loop
   Exit Sub
er :
   Resume Next
   
   
End Sub


MessagePosté le: 04 Mar 2010 à 11:45
 Voir le profil de l'utilisateur Envoyer un message privé Envoyer un e-mail MSN Messenger
 Revenir en haut de page 
Montrer les messages depuis:   Trier par:   
Page 1 sur 1 [1 message]  
Poster un nouveau sujet   Répondre au sujet Voir le sujet précédentVoir le sujet suivant
 Index du Forum » IBM-Lotus Domino » Trucs et Astuces » Développement » LotusScript » Gestion de fichiers
Sauter vers:  


Vous ne pouvez pas poster de nouveaux sujets dans ce forum
Vous ne pouvez pas répondre aux sujets dans ce forum
Vous ne pouvez pas éditer vos messages dans ce forum
Vous ne pouvez pas supprimer vos messages dans ce forum
Vous ne pouvez pas voter dans les sondages de ce forum
Vous ne pouvez pas joindre des fichiers dans ce forum
Vous pouvez télécharger des fichiers dans ce forum

phpBB SEO URLs V2

Flux RSS 
Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com
Version française de Categories Hierarchy © GGWeb-FR

[ Temps : 0.1355s ][ Requêtes : 13 (0.0053s) ][ GZIP actif - Débogage actif ]