Jump to content
ferreira12

Colocar caminho pré defenido

Recommended Posts

ferreira12

Boas...

Nunca trabalhei com o VBa, mas surgiu uma necessidade de elaborar um pequeno trabalho.

Eu gostaria de a abrir um open file... mas esse open file abrisse já numa directoria pré definida. pois a pasta em questão está partilhada na rede.

Tenho já este código, será que me poderem ajudar a colocar o caminho da directoria?

Public Function OpenFileDialog() As String
Dim Filter As String, Title As String
   Dim FilterIndex As Integer
   Dim Filename As Variant
   ' Define o filtro de procura dos arquivos
   Filter = "Picture Files,*.bmp;*.tif;*.jpg;*.png,PNG (*.png),*.png,TIFF (*.tif),*.tif,JPG (*.jpg),*.jpg,All Files (*.*),*.*"
   ' O filtro padrão é *.*
   FilterIndex = 1
   ' Define o Títuloo (Caption) da Tela
   Title = "Selecione um arquivo"
   ' Define o disco de procura
   ChDrive ("C:")
   ChDir ("D:")
   With Application
    ' Abre a caixa de diálogo para seleção do arquivo com os parâmetros
    Filename = .GetOpenFilename(Filter, FilterIndex, Title)
    ' Reseta o Path
    ChDrive (Left(.DefaultFilePath, 1))
    ChDir (.DefaultFilePath)
   End With
   ' Abandona ao Cancelar
   If Filename = False Then
    MsgBox "Nenhum arquivo foi selecionado."
    Exit Function
   End If
   ' Retorna o caminho do arquivo
   OpenFileDialog = Filename
End Function

Share this post


Link to post
Share on other sites
nelsonr

Boas,

tens o ChDir a definir um disco, coloca a pasta que queres abrir

Isto a mim resolve:

   ' Define o disco de procura
   ChDrive ("D:")
   ChDir ("\GAMES")

Share this post


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.