Hello:
I have lots of pdf file in C:\Scannedfiles folder with following name standard.
MM-DD-YYYY-StoreName-Category.pdf
Example
05-09-2020-Store1-Utilies_Gas
04-29-2020-Store9-Insurance_WC
I need VB Code to move all these files in their respective folder for each store.
C:\Store1\Utililies
C:\Store9\Insurance.
If folder does not exist then create one.
Please let me know if you have any questions.
Thanks.
Riz
Please Login or Register to view this content.
Last edited by AlphaFrog; 05-21-2020 at 02:13 AM.
Surround your VBA code with CODE tags e.g.;
[CODE]your VBA code here[/CODE]
The # button in the forum editor will apply CODE tags around your selected text.
Hi ! Give it a try !
For 2010 & upper Windows versions only to paste to the top of a module (for previous Windows versions just remove PtrSafe) :
PHP Code:Private Declare PtrSafe Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal DirPath$) As Boolean
Sub Demo1()
Const D = "C:\", P = D & "Scannedfiles\"
Dim F$, S$(), T$
F = Dir(P & "??-??-????-*-*.pdf")
While F > ""
S = Split(Split(F, "_")(0), "-")
T = D & S(3) & "\" & S(4) & "\"
MakeSureDirectoryPathExists T
Name P & F As T & F
F = Dir
Wend
End Sub
► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄
Last edited by Marc L; 05-21-2020 at 08:37 AM. Reason: add comment …
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks