Proper Way to Look Up and Manipulate files

[SodaPop]

I am trying to build a DB to fix movie folders and file names and I am struggling to properly find the file names.

Currently I am using "DirectoryName = Dir(folder, vbDirectory)" to find the files and loop through them correcting the names as I go.

Works perfect.

The issue I am having is how to properly then look up the file within the folder since Dir is already in use for the loop.



The straightforward question is how does one look-up a child file when the parent is known without using Dir().

Below is what is works to rename parent folders. I am sure it is hack to the trained eye but it gets the job done.

folder = "E:\Videos\"
DirectoryName = Dir(folder, vbDirectory)

Do Until DirectoryName = ""
If DirectoryName <> "." And DirectoryName <> ".." Then
If (GetAttr(folder & DirectoryName) And vbDirectory) = vbDirectory Then

FrstNum = ""
FixIt = Replace(DirectoryName, "'", "")
FixIt = Replace(FixIt, ".", " ")
ChrCnt = Len(FixIt)

For i = 5 To ChrCnt
If IsNumeric(Mid(FixIt, i, 1)) = True Then FrstNum = i
If FrstNum <> "" Then i = ChrCnt
Next i

If FrstNum = "" Then Yr = "(0000)" Else Yr = "(" & Mid(FixIt, FrstNum, 4) & ")"
If FrstNum = "" Then ChrCnt = ChrCnt Else If Mid(FixIt, FrstNum - 1, 1) = "(" Then ChrCnt = FrstNum - 3 Else ChrCnt = FrstNum - 2

Fname = Left(FixIt, ChrCnt)
Rname = Fname & " " & Yr
OldName = folder & DirectoryName
NewName = folder & Rname

Name OldName As NewName


End If
End If
DirectoryName = Dir

Loop

[June7]

Will this help http://www.allenbrowne.com/ser-59.html

Don't understand the issue with using Dir() more than once. It's a function, not a variable.

[SodaPop]

Unfortunately no, I referenced that one too already. That and most other code I've found explicitly references building a list of files.

I am looping through a set of folders. Each folder has a movie file in it. In order for the loop to work properly access needs to maintain the Dir() reference to know which file it was last on otherwise it starts over. Essentially using Dir() the second time kills the loop. I've played around with trying to maintain the reference but it either starts over or exits the function due to a null (which is coded in).

Starting to think it will be easier to build a reference table. Put in the old and new file names then loop through those in the rename.

Longer but I know for sure that can be done. Was just hoping there was another lookup method beyond Dir(). Anyway, likely will mess around some with the link and see if I can manipulate it...

[June7]

How many folder levels do you need to loop through? Just one?

I use FileSystemObject collection to declare and set folder objects to manipulate files.
This is part of a long procedure that saves reports as PDF then combines them with existing PDF documents.

Dim fso As Object, SourceFolder As Object, SFolder As Object, SSFolder As Object, SSSFolder As Object, PDFile As Object
Set objCAcroPDDocDestination = CreateObject("AcroExch.PDDoc")
Set objCAcroPDDocSource = CreateObject("AcroExch.PDDoc")
Set SourceFolder = fso.GetFolder("R:\Projects\LabReportsTemp\")For Each SFolder In SourceFolder.subfolders
strPath = SourceFolder.Path & "\" & SFolder.Name
If Dir(strPath, vbDirectory) = "" Then MkDir strPath
For Each SSFolder In SFolder.subfolders
...
For Each PDFile In SSSFolder.Files
...

[SodaPop]

How many folder levels do you need to loop through? Just one?

I use FileSystemObject collection to declare and set folder objects to manipulate files.
This is part of a long procedure that saves reports as PDF then combines them with existing PDF documents.

Dim fso As Object, SourceFolder As Object, SFolder As Object, SSFolder As Object, SSSFolder As Object, PDFile As Object
Set objCAcroPDDocDestination = CreateObject("AcroExch.PDDoc")
Set objCAcroPDDocSource = CreateObject("AcroExch.PDDoc")
Set SourceFolder = fso.GetFolder("R:\Projects\LabReportsTemp")For Each SFolder In SourceFolder.subfolders
strPath = SourceFolder.Path & "" & SFolder.Name
If Dir(strPath, vbDirectory) = "" Then MkDir strPath
For Each SSFolder In SFolder.subfolders
...
For Each PDFile In SSSFolder.Files
...

Wow what difference 3 years makes. I could do this blindfolded now. Lol.

Sent from my SM-G950U using Tapatalk