Jump to content

Definir um "SEARCH_PATH"


Recommended Posts

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 by manuel antonio
Link to post
Share on other sites
manuel antonio

De forma pouco ortodoxa, mas, coloquei assim:

PASTA=("OptionButton" & x).caption

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

 

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.