Insérer un Dir() dans une boucle de recherche de fichier

Question

Bonjour, J'aimerais faire un déplacement de dossier ou fichier avec vérification de la destination il se peut qu'il y est déjà une fonction? voilà ce que j'ai effectué SCRdirPFS="c: est1" DSTdirPFS="c: est2" ProfilExt=".xxx" je sais que je ne suis pas obligé de faire çà ;) FindFileProfil = Left(FindFileProfil, Len(FindFileProfil) - Len(ProfilExt)) tout fonctionne si je ne met pas les conditions If Dir(DSTdirPFS & FindFileProfil & ProfilExt, vbNormal Or vbReadOnly Or vbHidden Or vbArchive) <> "" Then ================================================================== Dim FindFileProfil As String FindFileProfil = Dir(SCRdirPFS & "*" & ProfilExt) While FindFileProfil <> "" FindFileProfil = Left(FindFileProfil, Len(FindFileProfil) - Len(ProfilExt)) FileCopy SCRdirPFS & FindFileProfil & ProfilExt, DSTdirPFS & FindFileProfil & ProfilExt On Error Resume Next Kill SCRdirPFS & FindFileProfil & ProfilExt FindFileProfil = Dir() Wend ================================================================== Dim FindFileProfil As String Dim VbMsgBoxResult FindFileProfil = Dir(SCRdirPFS & "*" & ProfilExt) While FindFileProfil <> "" FindFileProfil = Left(FindFileProfil, Len(FindFileProfil) - Len(ProfilExt)) 'Confirmer l'écrasement du fichier If Dir(DSTdirPFS & FindFileProfil & ProfilExt, vbNormal Or vbReadOnly Or vbHidden Or vbArchive) <> "" Then VbMsgBoxResult = MsgBox(Chr$(34) & FindFileProfil & Chr$(34) & " existe déjà dans le dossier de destination, voulez-vous l'écraser ?", vbYesNo, "Déplacement") If VbMsgBoxResult = vbYes Then 'Déplacement du profil FileCopy SCRdirPFS & FindFileProfil & ProfilExt, DSTdirPFS & FindFileProfil & ProfilExt 'Supprime le fichier source (seulement si fichier copié) If Dir(DSTdirPFS & FindFileProfil & ProfilExt, vbNormal Or vbReadOnly Or vbHidden Or vbArchive) <> "" Then On Error Resume Next Kill SCRdirPFS & FindFileProfil & ProfilExt End If End If Else 'Déplacement du profil FileCopy SCRdirPFS & FindFileProfil & ProfilExt, DSTdirPFS & FindFileProfil & ProfilExt 'Supprime le fichier source (seulement si fichier copié) If Dir(DSTdirPFS & FindFileProfil & ProfilExt, vbNormal Or vbReadOnly Or vbHidden Or vbArchive) <> "" Then On Error Resume Next Kill SCRdirPFS & FindFileProfil & ProfilExt End If End If FindFileProfil = Dir() Wend ================================================================== mytoo vmeiway

jsmeiway · Answer

j'ai r&#233;solu dle pb, en me fabriquant un tableau avnt
mais n'h&#233;siter pas &#224; m'aider

mytoo vmeiway

Insérer un Dir() dans une boucle de recherche de fichier

1 réponse

Discussions similaires