Cjvg
Messages postés330Date d'inscriptionmercredi 6 décembre 2000StatutMembreDernière intervention26 octobre 2017 25 févr. 2013 à 17:11
Bonjour,
Merci pour ce commentaire.
Pour répondre à votre question, ce petit projet n'est qu'une maquette que j'ai volontairement limité afin de laisser aux intéressés la possibilité de le compléter à leur convenance. C'est dans ce même esprit que j'ai développé presque toutes les sources que j'ai installées sur ce site.
Je vais réfléchir avant de me décider de prendre en compte vos suggestions.
Encore une fois Merci, c'est gentil à vous.
Cordialement
coyotej2
Messages postés13Date d'inscriptionmercredi 22 février 2006StatutMembreDernière intervention20 mai 2013 25 févr. 2013 à 16:50
Bonjour.
Bravo ! Cette panoplie serait encore plus super si elle s'accompagnait d'une fonction "Copier" et/ou "Déplacer" et si elle agissait alors avec une priorité basse. Pourquoi ? Windows Explorer fait un peu pareil (mais est moins complet que votre produit) et surtout consomme toute la puissance lors d'un copier/déplacer, sans que l'on puisse modifier sa priorité sans les pires ennuis. Je songeais moi-même à retrousser les manches pour développer un outil du même genre, mais puisque vous avez fait un excellent boulot...
Cordialement.
cs_ghuysmans99
Messages postés3983Date d'inscriptionjeudi 14 juillet 2005StatutMembreDernière intervention30 juin 201316 19 févr. 2013 à 23:07
Deux petites question sur cette portion de code :
# If (WindFile.dwFileAttributes And vbDirectory) Then
# If Asc(WindFile.cFileName) <> 46 Then
pourquoi tous les fichiers/dossiers dont le nom commence par un point doivent-ils être ignorés ??
# If (NbDir Mod 10) = 0 Then ReDim Preserve TabDir(NbDir + 10)
# NbDir = NbDir + 1
# TabDir(NbDir) = Left$(WindFile.cFileName, InStr(WindFile.cFileName, vbNullChar) - 1)
# End If
# ElseIf Not FlagFiles Then
rien du tout ici ?? pourquoi alors un ElseIf ?
# End If
Ensuite, pourquoi passer par trois fonctions au lieu d'une alors que FindXxFile donne tout directement ?
25 févr. 2013 à 17:11
Merci pour ce commentaire.
Pour répondre à votre question, ce petit projet n'est qu'une maquette que j'ai volontairement limité afin de laisser aux intéressés la possibilité de le compléter à leur convenance. C'est dans ce même esprit que j'ai développé presque toutes les sources que j'ai installées sur ce site.
Je vais réfléchir avant de me décider de prendre en compte vos suggestions.
Encore une fois Merci, c'est gentil à vous.
Cordialement
25 févr. 2013 à 16:50
Bravo ! Cette panoplie serait encore plus super si elle s'accompagnait d'une fonction "Copier" et/ou "Déplacer" et si elle agissait alors avec une priorité basse. Pourquoi ? Windows Explorer fait un peu pareil (mais est moins complet que votre produit) et surtout consomme toute la puissance lors d'un copier/déplacer, sans que l'on puisse modifier sa priorité sans les pires ennuis. Je songeais moi-même à retrousser les manches pour développer un outil du même genre, mais puisque vous avez fait un excellent boulot...
Cordialement.
19 févr. 2013 à 23:07
# If (WindFile.dwFileAttributes And vbDirectory) Then
# If Asc(WindFile.cFileName) <> 46 Then
pourquoi tous les fichiers/dossiers dont le nom commence par un point doivent-ils être ignorés ??
# If (NbDir Mod 10) = 0 Then ReDim Preserve TabDir(NbDir + 10)
# NbDir = NbDir + 1
# TabDir(NbDir) = Left$(WindFile.cFileName, InStr(WindFile.cFileName, vbNullChar) - 1)
# End If
# ElseIf Not FlagFiles Then
rien du tout ici ?? pourquoi alors un ElseIf ?
# End If
Ensuite, pourquoi passer par trois fonctions au lieu d'une alors que FindXxFile donne tout directement ?