Definir um "SEARCH_PATH"

[manuel antonio]

Através da seleção de um "OptionButton", pretendo criar um caminho para uma pasta, cujo nome é a "Caption" do "OptionButton", para depois serem listados os nomes dos ficheiros e visualizadas as imagens.
Os botões de opção estão numerados de 65 a 87 e de acordo com o botão selecionado, fará a leitura dos ficheiros dentro da respetiva pasta.

Pretendo qualquer coisa do género:

for x=65 to 87
  if Me.Controls("OptionButton" & x).value=true then
  	SEARCH_PATH=ThisWorkBook_Path & "\FOTOS\" & (("OptionButton" & x).caption) & "\"
  	iDir=Dir(SEARCH_PATH & ListBox2.text & "-*.jp*g")
  

Desta forma não teria que introduzir código em todos os botões de opção.

Qual a sintaxe correta para a variável "SEARCH_PATH?

Agradecido.

Edited June 3, 2021 at 02:18 PM by manuel antonio

[manuel antonio]

De forma pouco ortodoxa, mas, coloquei assim:

PASTA=("OptionButton" & x).caption

  ...
  
SEARCH_PATH=ThisWorkBook_Path & "\FOTOS\" & PASTA & "\"

 

[programadorvb6]

System.IO.Directory.CreateDirectory("<Caminho>")

  Edited January 31, 2022 at 03:10 PM by programadorvb6