Bonjour,
Je cherche à tester les noms des fichiers d’un répertoire Toto.
Puis je déplace dans un répertoire TotoBis les fichiers ne contenant pas «
abc » dans leur nom de fichier.
Comment affecter les différents noms de fichiers du répertoire Toto dans la
variable MonFichier ?
Merci d’avance pour le coup de main !
Sub DeplacerFichierSaufABC()
Dim MonFichier
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
MonFichier = "xrkabccdgt.txt"
MyCheck = MonFichier Like "*abc*"
If MyCheck = False Then
fs.MoveFile "C:\Test\Toto\" & MonFichier, "C:\Test\TotoBis\"
End If
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
repertoire1 = "c:toto" repertoire2 = "c:totobis" nf = Dir(repertoire1 & "*.*") Do While nf <> "" If Not nf Like "*ABC*" Then Name repertoire1 & nf As repertoire2 & nf End If nf = Dir Loop
Bonjour, Je cherche à tester les noms des fichiers d'un répertoire Toto. Puis je déplace dans un répertoire TotoBis les fichiers ne contenant pas « abc » dans leur nom de fichier. Comment affecter les différents noms de fichiers du répertoire Toto d ans la variable MonFichier ? Merci d'avance pour le coup de main !
Sub DeplacerFichierSaufABC() Dim MonFichier Dim fs Set fs = CreateObject("Scripting.FileSystemObject") MonFichier = "xrkabccdgt.txt" MyCheck = MonFichier Like "*abc*" If MyCheck = False Then fs.MoveFile "C:TestToto" & MonFichier, "C:TestTotoBis" End If End Sub
Bonjour,
repertoire1 = "c:toto"
repertoire2 = "c:totobis"
nf = Dir(repertoire1 & "*.*")
Do While nf <> ""
If Not nf Like "*ABC*" Then
Name repertoire1 & nf As repertoire2 & nf
End If
nf = Dir
Loop
JB
http://boisgontierjacques.free.fr
On 12 oct, 11:42, Jojo <J...@discussions.microsoft.com> wrote:
Bonjour,
Je cherche à tester les noms des fichiers d'un répertoire Toto.
Puis je déplace dans un répertoire TotoBis les fichiers ne contenant pas «
abc » dans leur nom de fichier.
Comment affecter les différents noms de fichiers du répertoire Toto d ans la
variable MonFichier ?
Merci d'avance pour le coup de main !
Sub DeplacerFichierSaufABC()
Dim MonFichier
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
MonFichier = "xrkabccdgt.txt"
MyCheck = MonFichier Like "*abc*"
If MyCheck = False Then
fs.MoveFile "C:TestToto" & MonFichier, "C:TestTotoBis"
End If
End Sub
repertoire1 = "c:toto" repertoire2 = "c:totobis" nf = Dir(repertoire1 & "*.*") Do While nf <> "" If Not nf Like "*ABC*" Then Name repertoire1 & nf As repertoire2 & nf End If nf = Dir Loop
Bonjour, Je cherche à tester les noms des fichiers d'un répertoire Toto. Puis je déplace dans un répertoire TotoBis les fichiers ne contenant pas « abc » dans leur nom de fichier. Comment affecter les différents noms de fichiers du répertoire Toto d ans la variable MonFichier ? Merci d'avance pour le coup de main !
Sub DeplacerFichierSaufABC() Dim MonFichier Dim fs Set fs = CreateObject("Scripting.FileSystemObject") MonFichier = "xrkabccdgt.txt" MyCheck = MonFichier Like "*abc*" If MyCheck = False Then fs.MoveFile "C:TestToto" & MonFichier, "C:TestTotoBis" End If End Sub
Jojo
Bonjour JB, Un GRAND MERCI pour ta réponse qui solutionne précisément mon pb. Trés cordialement Joël
Bonjour,
repertoire1 = "c:toto" repertoire2 = "c:totobis" nf = Dir(repertoire1 & "*.*") Do While nf <> "" If Not nf Like "*ABC*" Then Name repertoire1 & nf As repertoire2 & nf End If nf = Dir Loop
Bonjour, Je cherche à tester les noms des fichiers d'un répertoire Toto. Puis je déplace dans un répertoire TotoBis les fichiers ne contenant pas « abc » dans leur nom de fichier. Comment affecter les différents noms de fichiers du répertoire Toto dans la variable MonFichier ? Merci d'avance pour le coup de main !
Sub DeplacerFichierSaufABC() Dim MonFichier Dim fs Set fs = CreateObject("Scripting.FileSystemObject") MonFichier = "xrkabccdgt.txt" MyCheck = MonFichier Like "*abc*" If MyCheck = False Then fs.MoveFile "C:TestToto" & MonFichier, "C:TestTotoBis" End If End Sub
Bonjour JB,
Un GRAND MERCI pour ta réponse qui solutionne précisément mon pb.
Trés cordialement Joël
Bonjour,
repertoire1 = "c:toto"
repertoire2 = "c:totobis"
nf = Dir(repertoire1 & "*.*")
Do While nf <> ""
If Not nf Like "*ABC*" Then
Name repertoire1 & nf As repertoire2 & nf
End If
nf = Dir
Loop
JB
http://boisgontierjacques.free.fr
On 12 oct, 11:42, Jojo <J...@discussions.microsoft.com> wrote:
Bonjour,
Je cherche à tester les noms des fichiers d'un répertoire Toto.
Puis je déplace dans un répertoire TotoBis les fichiers ne contenant pas «
abc » dans leur nom de fichier.
Comment affecter les différents noms de fichiers du répertoire Toto dans la
variable MonFichier ?
Merci d'avance pour le coup de main !
Sub DeplacerFichierSaufABC()
Dim MonFichier
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
MonFichier = "xrkabccdgt.txt"
MyCheck = MonFichier Like "*abc*"
If MyCheck = False Then
fs.MoveFile "C:TestToto" & MonFichier, "C:TestTotoBis"
End If
End Sub
Bonjour JB, Un GRAND MERCI pour ta réponse qui solutionne précisément mon pb. Trés cordialement Joël
Bonjour,
repertoire1 = "c:toto" repertoire2 = "c:totobis" nf = Dir(repertoire1 & "*.*") Do While nf <> "" If Not nf Like "*ABC*" Then Name repertoire1 & nf As repertoire2 & nf End If nf = Dir Loop
Bonjour, Je cherche à tester les noms des fichiers d'un répertoire Toto. Puis je déplace dans un répertoire TotoBis les fichiers ne contenant pas « abc » dans leur nom de fichier. Comment affecter les différents noms de fichiers du répertoire Toto dans la variable MonFichier ? Merci d'avance pour le coup de main !
Sub DeplacerFichierSaufABC() Dim MonFichier Dim fs Set fs = CreateObject("Scripting.FileSystemObject") MonFichier = "xrkabccdgt.txt" MyCheck = MonFichier Like "*abc*" If MyCheck = False Then fs.MoveFile "C:TestToto" & MonFichier, "C:TestTotoBis" End If End Sub