Como abrir uma pasta

[Baldotto 0]

Bem como faço para abrir uma pasta do windows? Usando um botao feito no visual basic.

[Luizgrs 0]

Utilize a função Shell:

 

Shell "explorer <caminho_da_pasta>"

[Baldotto 0]

Vlw cara, XD.A pasta abre minimizada sabe se existe maneira dela abrir ja maximizada?Fui..........

[Luizgrs 0]

A função Shell, depois do comando, aceita uma outra propriedade: WindowStyle.Dá uma olhada nela ;)

[horich 0]

Desculpe dar uma ressuscitada nesse tópico rs

Mais como coloco uma variável aqui no lugar do endereço

Shell("explorer <VARIÁVEL AQUI>", AppWinStyle.MaximizedFocus)

Obrigado

[Jony Peterson 2]

Horich boa tarde

 

Eu quando quero abrir um arquivo dentro de uma pasta eu utilizo o seguinte codigo:

 

Sub Importa()

W_ATUAL = ThisWorkbook.Name

PASTAEARQUIVO = Application _

.GetOpenFilename("ARQUIVO DE SOFTWARE ESPECIALISTA (*.sum), *.sum")

 

If PASTAEARQUIVO = False Then

Exit Sub

End If

ARQUIVO1 = Worksheets("BD").Range("W29") & " " & Worksheets("BD").Range("T29")

 

Workbooks.OpenText Filename:=PASTAEARQUIVO, Origin:=xlMSDOS, StartRow:=1 _

, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _

, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False _

, Comma:=False, Space:=True, Other:=False

Windows(ARQUIVO1).Activate

Range("A1:P400").Select

Selection.Copy

Windows("Reconciliaçao Mensal 2009 VER.2.xls").Activate

Range("A1").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Application.CutCopyMode = False

Windows(ARQUIVO1).Activate

ActiveWindow.Close

End Sub

 

Espero que ajude

[KhaosDoctor 242]

Nossa que coisa comprida...

 

@horich

 

Assim:

 

System.diagnostics.process.Start(<Váriável>)

Isso vai funcionar tanto para pastas quanto para arquivos.

[horich 0]

Obrigado aos dois,as duas formas funfaram =)