Вызов оболочки - только знать часть имени файла

Question

Мой макрос создает папки с именем year.number.description (2016.185.Hello).

Проблема заключается в том, что это имя может быть изменено, поэтому, например, после того, как несколько дней кто-то переименовывает его 2016.185.Hi

В тот же макрос есть возможность открыть эту папку.

Я думал, что добавление «. *» Будет работать, но это не так.

Private Sub cmdNumero_Click() 

Dim Carpeta As String 
Año = Me.txtAny.Value 
Numero = Me.txtNumero.Value 

Carpeta = "C:\Folder1\Folder2" & "\" & Año & "." & Numero & ".*" 

Call Shell("explorer.exe " & Carpeta, vbNormalFocus) 

End Sub 

Спасибо за внимание

Answer 1

Вы можете использовать вспомогательную функцию, чтобы вы реальный путь папку в .. что-то вроде следующего:

Function GetSubFolderByPartial(sRootPath As String, sSub As String) As String 
    Dim oFso As Object 
    Dim oTopFolder As Object 
    Dim oSubs As Object 
    Dim oFolder As Object 

    Set oFso = CreateObject("Scripting.FileSystemObject") 
    Set oTopFolder = oFso.GetFolder(sRootPath) 
    Set oSubs = oTopFolder.SubFolders 
    For Each oFolder In oSubs 
     If oFolder.Name Like sSub & "*" Then 
      GetSubFolderByPartial = oFolder.Path 
      Set oFso = Nothing 
      Exit Function 
     End If 
    Next 
End Function 

Таким образом, вы можете просто позвонить это так:

Carpeta = GetSubFolderByPartial("C:\Folder1\Folder2", Año & "." & Numero & ".") 
If Len(Carpeta) > 0 Then 
    Call Shell("explorer.exe " & Carpeta, vbNormalFocus) 
End If 

Надеюсь, что это поможет