Recent content by habiler

ok bUT i HAVE 900 FILES TO RENAME

Hello everybody i have a directory c:\ 123 - AAAAA 45678 - BBBBB How can i rename the files in AAAAA - 123 BBBBB - 45678 without touching the subdirectories Thanks for all and happy new year

Good morning to you all, I would like to copy the entire folder from K: to P: if the folder does not exist. And then copy the existing folders from K to P. I started with the non-existent files but it does not perform creation. Option Compare Database Option Explicit Sub...

My code hangs (Error75) if the folder exists. How to go next Option Compare Database Option Explicit Sub Verifier_Presence_Sous_Dossier() Dim Pth As String Dim i As Integer Dim strSql As String Dim dbs As DAO.Database Dim rst As DAO.Recordset Dim fs As FileSystemObject...

What's wrong with my code. Root2 & "\" & varFldrsRoot1(i) is not created. Option Compare Database Option Explicit Sub Verifier_Presence_Sous_Dossier() Dim Pth As String Dim i As Integer Dim strSql As String Dim dbs As DAO.Database Dim rst As DAO.Recordset Dim fs As...

Now I have an error at line Set FSO = FSO.GetFolder("C:\Pers1\") Error 13, compatiblity type Option Compare Database Option Explicit Sub RenommerDossier() 'si les dossiers comportant \A. 'mais ne s'intitulant pas \A. Pieces officielles\" 'soient remplac?s par \A. Pieces officielles\"...

Thanks Moke.

Its a one-off solution with 800 zmployees

Here is my full code. I would like that by employee there is a tree as listed under Tree.gif NomName is issued from an access DB. There are two langages . Not all subfolders are present or misspelled. Do you want more information Option Compare Database Sub RenommerDossier() 'si les...

Actually I have a directory C: Pers1 Name A. Hello to K. Goodby With subfolders A. Hello "1. P1,2. Werfbundel,3. Overige,4. Contracten,5. Wijzigingen" With the code below I would like to check if all existing drectory are well spelled.If not correct them (see "1. P1,....,5. Wijzigingen") or...

How can I do the same with the subfolder in A. Check if the spelling of the directory is correct? Can I use varFldrs = Split("1. P1,2. Werfbundel,3. Overige,4. Contracten,5. Wijzigingen", ",") ? If InStr(1, Folder.Name, "A.") > 0 Then If Not Folder.Name Like...

I would like to create the following folders: newNameA/A. Pieces officielles/1. P1/ newNameA A. Pieces officielles/2. Werfbunde/ newNameA/A. Pieces officielles/3. Overige/ newNameA/A. Pieces officielles/4. Contracten/ newNameA/A. Pieces officielles/5. Wijzigingen/ newNameAF = "A...

How can i obtain this result newNameA1F with MkDir (strPathNl) & newNameAF & "\" & newNameA & i & "F" & "\" For i = 1 To 5 i = i + 1 MkDir (strPathNl) & newNameAF & "\" & newNameA & i & "F" & "\" ' MkDir (strPathNl) &...

Yes it's; It's a comment. For "Pieces officielles" see newNameA = "A. Pieces officielles" newNameA1 = "1. P1" newNameA2 = "2. Werfbundel" newNameA3 = "3. Overige" newNameA4 = "4. Contracten" newNameA5 = "5. Wijzigingen"

I try to simplify my code using indexes but I have a problem at level MkDir (strPathNl) & newNameA & "\" & newNameA&i Syntax error. Sub RenommerDossier() 'Pr?alable: v?rifier si les r?f?rence n?cessaires au FileSystemObject sont activ?es. Dim objFSO As FileSystemObject Dim...