最高の番号を持つサブフォルダを見つける

Question

私はサブフォルダがたくさんあるフォルダを持っています。フォルダの98％は反復番号を持つパターンに基づいて名前が付けられています。

私はそれにどのように最高の番号（サブフォルダの名前、maxNumber = ??）を見つけたいですか？

numOfRows = maxFolder- 32020 

'loops through each file in the directory and prints their names and path 
'For Each objSubFolder In objFolder.subfolders to slow.... 
for pnr = 32020 to maxFolder 
    DoEvents 

    Call ProgressBar.setMessage("Updating for .." & pnr, ((i + 1)/(numOfRows + 1)) * 100) 

Answer 1

サブフォルダの中で最も高い番号のサブフォルダを探したいとしますか？これはおそらく開始するには良い場所です。ここで

http://www.learnexcelmacro.com/wp/download/

スクリプトです。

Sub GetFilesInFolder(SourceFolderName As String, Subfolders As Boolean) 

'--- For Example:Folder Name= "D:\Folder Name\" and Flag as Yes or No 

Dim FSO As Scripting.FileSystemObject 
Dim SourceFolder As Scripting.folder, SubFolder As Scripting.folder 
Dim FileItem As Scripting.File 
'Dim r As Long 
    Set FSO = New Scripting.FileSystemObject 
    Set SourceFolder = FSO.GetFolder(SourceFolderName) 

    '--- This is for displaying, whereever you want can be configured 

    r = 14 
    For Each FileItem In SourceFolder.Files 
     Cells(r, 2).Formula = r - 13 
     Cells(r, 3).Formula = FileItem.Name 
     Cells(r, 4).Formula = FileItem.Path 
     Cells(r, 5).Formula = FileItem.Size 
     Cells(r, 6).Formula = FileItem.Type 
     Cells(r, 7).Formula = FileItem.DateLastModified 
     Cells(r, 8).Formula = "=HYPERLINK(""" & FileItem.Path & """,""" & "Click Here to Open" & """)" 

     r = r + 1 ' next row number 
    Next FileItem 

    '--- This is the Function to go each and Every Folder and get the Files. This is a Nested-Function Calling. 

    If Subfolders = True Then 
     For Each SubFolder In SourceFolder.Subfolders 
      ListFilesInFolder SubFolder.Path, True 
     Next SubFolder 
    End If 

    Set FileItem = Nothing 
    Set SourceFolder = Nothing 
    Set FSO = Nothing 
End Sub 

最後に、上記のリンクを作成すると、「ファイルマネージャ」という名前のサンプルファイルをダウンロードできます。 [今すぐダウンロード]をクリックしてファイルを取得します。それはあなたが望むことをするはずです。