Нахождение двузначных чисел - VBA

Формулировка задачи:

Добрый день. Я только начал учить VBA, поэтому нужна помощь. Даётся путь к папке. Нужно определить есть ли двузначные числа в названии папок, если они есть, то заменить их на обратные им.(00-99, 02-97). Заранее спасибо за помощь.

Решение задачи: «Нахождение двузначных чисел»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Test()
    Dim objFolder As Object, tmp$
    With Application.FileDialog(msoFileDialogFolderPicker)
         If .Show = 0 Then Exit Sub
         With CreateObject("Scripting.FileSystemObject").GetFolder(.SelectedItems(1))
              For Each objFolder In .SubFolders
                  tmp = objFolder.Name
                  If tmp Like "*[!0-9]##" Then
                     Mid(tmp, Len(tmp) - 1) = Format(99 - Right(tmp, 2), "00")
                     objFolder.Name = tmp
                  End If
              Next
         End With
    End With
End Sub

Оцени полезность:

7 голосов , оценка 3.714 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы