Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 2021
-
13 mars 2008 à 16:32
cs_GorGor33
Messages postés29Date d'inscriptionlundi 3 mars 2008StatutMembreDernière intervention26 mars 2008
-
26 mars 2008 à 14:02
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
cs_GorGor33
Messages postés29Date d'inscriptionlundi 3 mars 2008StatutMembreDernière intervention26 mars 2008 26 mars 2008 à 14:02
Merci ^^
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 26 mars 2008 à 13:05
y'a pas grand chose a comprendre...
modifie
Public Sub CopieRepertoire(ByVal dirsource As String, ByVal dirdest As String)
'copie du répertoire source dans le répertoire destination de même nom
My.Computer.FileSystem.CopyDirectory(dirsource, dirdest, True)
'appel procédure traitement des fichiers
TraitementFichier(My.Computer.FileSystem.GetDirectoryInfo(dirsource))
End Sub
par
Public Sub CopieRepertoire(ByVal dirsource As String, ByVal dirdest As String)
'copie du répertoire source dans le répertoire destination de même nom
My.Computer.FileSystem.CopyDirectory(dirsource, dirdest, FileIO.UIOption.AllDialogs, FileIO.UICancelOption.DoNothing)
'appel procédure traitement des fichiers
TraitementFichier(My.Computer.FileSystem.GetDirectoryInfo(dirsource))
End Sub
cs_GorGor33
Messages postés29Date d'inscriptionlundi 3 mars 2008StatutMembreDernière intervention26 mars 2008 26 mars 2008 à 12:30
Renfield au risque de paraître lourd je n'y comprend rien.Je ne suis pas programmeur, à la base j'ai une formation réseau.
DSL.Sinon tant pis
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 26 mars 2008 à 12:16
cs_GorGor33
Messages postés29Date d'inscriptionlundi 3 mars 2008StatutMembreDernière intervention26 mars 2008 26 mars 2008 à 12:12
Euh je dois t'avouer que je ne sais pas comment manipuler le showUI.J'ai bien essayié mais que dalle.Et je dois mettre l'appli en ligne cette aprèm!Tu crois que tu pourrais me dire ou le mettre dans le code stp?
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 26 mars 2008 à 11:40
cs_GorGor33
Messages postés29Date d'inscriptionlundi 3 mars 2008StatutMembreDernière intervention26 mars 2008 26 mars 2008 à 11:36
J'aimerais bien mettre une barre de progression pendant la procédure CopieRépertoire(), mais je ne sais pas vraiment où placer l'appel la procédure servant à faire avancer la barre.
Sub BarreProgression()
Dim i As Integer
With PB1
PB1.Maximum = 100
PB1.Minimum = 0
For i = 0 To 100
'Le traitement de la boucle
PB1.Value = i
Next i
End With
End Sub
Renfield, vole à mon secours!!
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 14 mars 2008 à 12:06
normallement rien, ce sont les users qui vont le lancé, donc ca ne changera rien
cs_GorGor33
Messages postés29Date d'inscriptionlundi 3 mars 2008StatutMembreDernière intervention26 mars 2008 14 mars 2008 à 11:57
Dites moi je pensais que cela serait bien de mettre cette application disponible sur un serveur, mais pour cela il faut changer le code ou alors c'est simplement des paramètres à mettre en place sur le serveur?
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 13 mars 2008 à 17:11
voir Try...Catch...Finally
voir My.Settings
cs_GorGor33
Messages postés29Date d'inscriptionlundi 3 mars 2008StatutMembreDernière intervention26 mars 2008 13 mars 2008 à 17:07
Je dois t'avouer que pour éviter les crash je ne vois pas du tout comment faire, et je ne vois pas non plus comment faire un fichier de configuration...ni trop ce que c'est d'ailleurs :S
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 13 mars 2008 à 17:05
Pour C:\ et autres chemins, je pensais plutot a un fichier de config
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 13 mars 2008 à 17:04
que si un des fichiers est occupés, par exemple, ou que le repertoire Save est occupé, etc => CRASH
cs_GorGor33
Messages postés29Date d'inscriptionlundi 3 mars 2008StatutMembreDernière intervention26 mars 2008 13 mars 2008 à 17:00
oups dsl c'était pour les tests je m'étais crée des fichiers, je n'en avais pas dont la dernière écriture datait de 30 jours...
Pour C:\ une constante ça irait?
Par gestion d'exceptions tu entends quoi?
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 13 mars 2008 à 16:32
on devrait pouvoir spécifier des repertoires qui ne seraient pas supprimés quelque soient les dates des fichiers
une liste également des repertoires a vider systématiquement.
pouvoir configurer le nombre de jours limite
gaffe aux C:\ en dur dans le code
pas de gestion d'exceptions, dangereux, surtout avec des fichiers...
tu dis 30 jours dans le descriptif, dans le code on lit 7:
If TFfic.LastWriteTime.AddDays(7)
26 mars 2008 à 14:02
26 mars 2008 à 13:05
modifie
Public Sub CopieRepertoire(ByVal dirsource As String, ByVal dirdest As String)
'copie du répertoire source dans le répertoire destination de même nom
My.Computer.FileSystem.CopyDirectory(dirsource, dirdest, True)
'appel procédure traitement des fichiers
TraitementFichier(My.Computer.FileSystem.GetDirectoryInfo(dirsource))
End Sub
par
Public Sub CopieRepertoire(ByVal dirsource As String, ByVal dirdest As String)
'copie du répertoire source dans le répertoire destination de même nom
My.Computer.FileSystem.CopyDirectory(dirsource, dirdest, FileIO.UIOption.AllDialogs, FileIO.UICancelOption.DoNothing)
'appel procédure traitement des fichiers
TraitementFichier(My.Computer.FileSystem.GetDirectoryInfo(dirsource))
End Sub
26 mars 2008 à 12:30
DSL.Sinon tant pis
26 mars 2008 à 12:16
My.Computer.FileSystem.CopyDirectory( ...source..., ...dest..., FileIO.UIOption.AllDialogs, FileIO.UICancelOption.DoNothing)
26 mars 2008 à 12:12
26 mars 2008 à 11:40
http://msdn2.microsoft.com/en-us/library/2swy9y5e(VS.80).aspx
26 mars 2008 à 11:36
Sub BarreProgression()
Dim i As Integer
With PB1
PB1.Maximum = 100
PB1.Minimum = 0
For i = 0 To 100
'Le traitement de la boucle
PB1.Value = i
Next i
End With
End Sub
Renfield, vole à mon secours!!
14 mars 2008 à 12:06
14 mars 2008 à 11:57
13 mars 2008 à 17:11
voir My.Settings
13 mars 2008 à 17:07
13 mars 2008 à 17:05
13 mars 2008 à 17:04
13 mars 2008 à 17:00
Pour C:\ une constante ça irait?
Par gestion d'exceptions tu entends quoi?
13 mars 2008 à 16:32
une liste également des repertoires a vider systématiquement.
pouvoir configurer le nombre de jours limite
gaffe aux C:\ en dur dans le code
pas de gestion d'exceptions, dangereux, surtout avec des fichiers...
tu dis 30 jours dans le descriptif, dans le code on lit 7:
If TFfic.LastWriteTime.AddDays(7)