[X]My Assistant

[habiler]

I have a directory C: pers & ! Nomname & " A. Official Parts ".

I would like that if the files containing A. but not entitled A. Official Parts" are replaced by A. Official Parts "
I wrote a code of which a part is listed below. but it creates me a second empty file.

strPathNl = toPath & "\" & !NomName & "\A. Pieces officielles\"

If fso.FileExists(strPathNl) = False Then
MkDir strPathNl
Else
If Mid(strPathNl, longstrPath, 2) = "A." And fso.FileExists(strPathNl) = False Then
MkDir strPathNl
fso.CopyFolder strPathNl, strPathNl
End If
End If

[moke123]

try the Name()

[dmhzx]

Looks like if you need to create a new folder, nothing else gets done.
If the destination folder already exists, nothing gets done.

Does copyfolder also copy all files and subfolders?

[andywal6]

Have you tried:

Dim OldFolderName As String
Dim NewFolderName As String

If Dir(your folder name, vbDirectory) = "" Then
MkDir (your folder name)
Else
OldFolderName = 'your existingname'
NewFolderName = 'your newname'

Name OldFolderName As NewFolderName

End If

Andy.