opps! typo error in previous post, loop through and return highest file

[dobbine]

hi there folks,

I was wondering if I have a folder with the following files in it,
can
I return 00012ac.jpg?
00012.jpg
00012a.jpg
00012b.jpg
00012c.jpg
right up to ...
00012z.jpg
00012aa.jpg
00012ab.jpg
00012ac.jpg
Here is a snippet of my code:
'Begin filtering files in the directory for FILENUM pattern and parse
out the file name.
For Each file In strDestFolder.f iles
If Left(file.Name, 5) = Trim(myForm!txt FILENUM) Then
strFileName = Left(file.Name, Len(file.Name) - 4)
lngAlpha = Len(strFileName )
For lngI = lngAlpha To 1 Step -1
'(strFileName) 'This is where i'm stuck
Debug.Print lngAlpha
Debug.Print strFileName
Next lngI
End If
Next file
End If
End If
'Name strInitFile As strDestFile
'FileCopy strSourceFile, strDestFile
Set fs = Nothing
End Sub
Any help or suggestions would be greatly, greatly appreciated.
Is this pattern of a,b,c the best to use? I could probably rename all
the files using 001,002,003 instead.

[Salad]

do*****@gov.nl. ca wrote:

hi there folks,

I was wondering if I have a folder with the following files in it,
can
I return 00012ac.jpg?
00012.jpg
00012a.jpg
00012b.jpg
00012c.jpg
right up to ...
00012z.jpg
00012aa.jpg
00012ab.jpg
00012ac.jpg
Here is a snippet of my code:
'Begin filtering files in the directory for FILENUM pattern and parse
out the file name.
For Each file In strDestFolder.f iles
If Left(file.Name, 5) = Trim(myForm!txt FILENUM) Then
strFileName = Left(file.Name, Len(file.Name) - 4)
lngAlpha = Len(strFileName )
For lngI = lngAlpha To 1 Step -1
'(strFileName) 'This is where i'm stuck
Debug.Print lngAlpha
Debug.Print strFileName
Next lngI
End If
Next file
End If
End If
'Name strInitFile As strDestFile
'FileCopy strSourceFile, strDestFile
Set fs = Nothing
End Sub
Any help or suggestions would be greatly, greatly appreciated.
Is this pattern of a,b,c the best to use? I could probably rename all
the files using 001,002,003 instead.

I don't understand the question completely or what strDestFolder.f iles is.

You can do something like
intCnt = 0
strFile = Dir("C:\Test\00 001*.JPG"
Do while strFile ""
msgbox strFile
intCnt = intCnt + 1
strFile = Dir()
Loop
msgbox "there were " & intCnt " files."

What I don't understand is where you are selecting a specific file like
"00001C.JPG ". You could stuff those values into a combo box or into a
table to show the selection I guess. What do you mean "highest file"?

[dobbine]

Hi Salad,
If I have a folder with the following files:
00012.jpg
00012a.jpg
00012b.jpg
00012c.jpg

I would like to know how to return 00012c.jpg

I think I need to use the Chr() function to return the ANSI value to
do it but I don't know how
Maybe first Parse out the letter by striping off '00012' and '.jpg'
parts.
Here is more of my code

Sub AutoUpdate(strS ourceFile)
Dim file, v
Dim fs, strDestFolder, strDestFile, strAlphaPart, strNumPart,
strDestFileNew, strFileName
Dim strAlphaInput As String
Dim dtmSourceFileDa te As Date
Dim myForm As Form
Dim lngI As Long, lngFileName As Long
Dim varFile As Variant
Dim intFileName As Integer
Dim lngAlpha As Long

Set myForm = Screen.ActiveFo rm

'If the user has updated or added a photo in N:\wwwroot\WORK S
\BLDGPIC1 directory, Then...
'First check to see if the field PhotoDateModifi ed in BLDGMSTR has
the same photo date if
'not then synchronize. Use the DateLastModifie d property of the
FileSystemObjec t as this
'property does not change when a file is copied from one directory
to another.

Set fs = CreateObject("S cripting.FileSy stemObject")
Set strSourceFile = fs.getfile(strS ourceFile) '=N:\wwwroot\WO RKS
\BLDGPIC1\00012 .jpg

dtmSourceFileDa te = strSourceFile.D ateLastModified
If dtmSourceFileDa te <myForm!txtPhot oDateLastModifi ed Then 'A
new picture has been added to N drive
myForm!txtPhoto DateLastModifie d = dtmSourceFileDa te
'Synchronize the field PhotoDateModifi ed in table BLDGMSTR

v = myForm!cboVOLUM E
If v = "9" Then
v = "0"
End If

Set strDestFolder = fs.GetFolder("F :\User\BLDG
\FacilitiesFili ngCabinet\Volum e" & Trim(v) & "\" & Trim(myForm!
txtBLDGNUM) & "\" & Trim(myForm!txt SUBNAME))
strDestFile = Dir(strDestFold er & "\" & Trim(myForm!
txtPHOTO)) '00012.jpg
'if the destination directory is empty then simply copy the
file
If strDestFile = "" Then
FileCopy strSourceFile, strDestFolder & "\" & Trim(myForm!
txtPHOTO)
Else 'otherwise begin AutoUpdate

'Begin filtering files in the directory for FILENUM pattern and
parse out the file name.
For Each file In strDestFolder.f iles
If Left(file.Name, 5) = Trim(myForm!txt FILENUM) Then
strFileName = Left(file.Name, Len(file.Name) - 4)
lngAlpha = Len(strFileName )
For lngI = lngAlpha To 1 Step -1
'(strFileName) 'This is where i'm stuck
Debug.Print lngAlpha
Debug.Print strFileName
Next lngI
End If
Next file
End If
End If

'Name strDestFile As strDestFileNew 'Please Ignore
'FileCopy strSourceFile, strDestFile 'Please Ignore

Set myForm = Nothing
Set fs = Nothing
Set strSourceFile = Nothing
Set strDestFolder = Nothing
End Sub

[Salad]

do*****@gov.nl. ca wrote:

Hi Salad,
If I have a folder with the following files:
00012.jpg
00012a.jpg
00012b.jpg
00012c.jpg

I would like to know how to return 00012c.jpg

I think I need to use the Chr() function to return the ANSI value to
do it but I don't know how
Maybe first Parse out the letter by striping off '00012' and '.jpg'
parts.
Here is more of my code

Sub AutoUpdate(strS ourceFile)
Dim file, v
Dim fs, strDestFolder, strDestFile, strAlphaPart, strNumPart,
strDestFileNew, strFileName
Dim strAlphaInput As String
Dim dtmSourceFileDa te As Date
Dim myForm As Form
Dim lngI As Long, lngFileName As Long
Dim varFile As Variant
Dim intFileName As Integer
Dim lngAlpha As Long

Set myForm = Screen.ActiveFo rm

'If the user has updated or added a photo in N:\wwwroot\WORK S
\BLDGPIC1 directory, Then...
'First check to see if the field PhotoDateModifi ed in BLDGMSTR has
the same photo date if
'not then synchronize. Use the DateLastModifie d property of the
FileSystemObjec t as this
'property does not change when a file is copied from one directory
to another.

Set fs = CreateObject("S cripting.FileSy stemObject")
Set strSourceFile = fs.getfile(strS ourceFile) '=N:\wwwroot\WO RKS
\BLDGPIC1\00012 .jpg

dtmSourceFileDa te = strSourceFile.D ateLastModified
If dtmSourceFileDa te <myForm!txtPhot oDateLastModifi ed Then 'A
new picture has been added to N drive
myForm!txtPhoto DateLastModifie d = dtmSourceFileDa te
'Synchronize the field PhotoDateModifi ed in table BLDGMSTR

v = myForm!cboVOLUM E
If v = "9" Then
v = "0"
End If

Set strDestFolder = fs.GetFolder("F :\User\BLDG
\FacilitiesFili ngCabinet\Volum e" & Trim(v) & "\" & Trim(myForm!
txtBLDGNUM) & "\" & Trim(myForm!txt SUBNAME))
strDestFile = Dir(strDestFold er & "\" & Trim(myForm!
txtPHOTO)) '00012.jpg
'if the destination directory is empty then simply copy the
file
If strDestFile = "" Then
FileCopy strSourceFile, strDestFolder & "\" & Trim(myForm!
txtPHOTO)
Else 'otherwise begin AutoUpdate

'Begin filtering files in the directory for FILENUM pattern and
parse out the file name.
For Each file In strDestFolder.f iles
If Left(file.Name, 5) = Trim(myForm!txt FILENUM) Then
strFileName = Left(file.Name, Len(file.Name) - 4)
lngAlpha = Len(strFileName )
For lngI = lngAlpha To 1 Step -1
'(strFileName) 'This is where i'm stuck
Debug.Print lngAlpha
Debug.Print strFileName
Next lngI
End If
Next file
End If
End If

'Name strDestFile As strDestFileNew 'Please Ignore
'FileCopy strSourceFile, strDestFile 'Please Ignore

Set myForm = Nothing
Set fs = Nothing
Set strSourceFile = Nothing
Set strDestFolder = Nothing
End Sub

Dim lngMax As String
DIm strAlpha As String 'extension
Dim strMax As String
Dim strF As String
Dim strMyForm As String
Dim strChar As String
Dim strNewFile As String
Dim intFor As Integer
Dim strHold As String

strF = file.Name
strMyForm = myForm!txtFILEN UM
For Each file In strDestFolder.f iles
If Left(strF, 5) = Trim(strMyForm) Then
'remove prefix and ".jpg"
strAlpha = mid(strF,6,len( strF)-9)
If strF <"" Then
If Len(strAlpha) Len(strMax) then
'"aa" < "z" so check for len
strMax = strAlpha
Elseif strAlpha strMax then
strMax = strAlpha
Endif
Else
strMax = chr(64) 'first char before "a"
Endif
Endif
'you now have the highest extension. now increment
If LCase(Right(str Max,1)) = <"z" then
'if a, make b
strChar = Chr(asc(Right(s trMax,1)) + 1)
strExt = left(strExt,len (strExt)-1) & strChar
Else
strChar = ""
For intFor = len(strMax) to 1 step -1
strChar = right(strMax,in tfor,1)
If strChar <"z" then
strHold = strHold & Chr(asc(Right(s trMax,1)) + 1)
If right(strMax,in tFor,1)
If right(strMax,in tFor,1) <"z" then

Next
Endif

endif
strNewFile = Left(strF, 5) & strExt & ".jpg"
msgbox "The old file was " & strF & " and the new is " & strNewFile