|
|
Postada em 20/01/2006 06:12 hs
Como faço para abrir a seguinte pasta através do VB: C:SGITexto No caso acima este é o caminho da pasta "Texto" que gostaria de abrir, através do VB6. |
|
|
|
|
|
|
|
Postada em 20/01/2006 07:04 hs
Qdo vc diz Abrir, quer dizer a JANELA DO EXPLORER??? ou o q vc quer abrir? Se for abrir a janela, faz o seguinte: Shell("C:\SGI\Texto") Flw!
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
 "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
|
|
Postada em 20/01/2006 07:49 hs
Deu o seguinte erro: Run-time error '5': Invalid procedure call or argument |
|
|
|
|
|
Postada em 20/01/2006 09:39 hs
Shell "explorer.exe ""c:\Arquivos de Programas\""" Acabei de testar...
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
"O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
|
|
Postada em 20/01/2006 12:34 hs
'abre o Explorer na pasta selecionada
Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
Private Sub Form_Load()
WinExec "Explorer.exe c:", 10
End Sub ou 'Código do Formulário
RichTextBox1.Text = Module1.GetFolder(Form1.hWnd, "Select folder")
'Código do Módulo
Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
Const BIF_RETURNONLYFSDIRS = &H1
Const BIF_DONTGOBELOWDOMAIN = &H2
Const BIF_STATUSTEXT = &H4
Const BIF_RETURNFSANCESTORS = &H8
Const BIF_BROWSEFORCOMPUTER = &H1000
Const BIF_BROWSEFORPRINTER = &H2000
Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
Function GetFolder(ByVal hWndOwner As Long, ByVal sTitle As String) As String
Dim bInf As BROWSEINFO
Dim RetVal As Long
Dim PathID As Long
Dim RetPath As String
Dim Offset As Integer
bInf.hOwner = hWndOwner
bInf.lpszTitle = sTitle
bInf.ulFlags = BIF_RETURNONLYFSDIRS
PathID = SHBrowseForFolder(bInf)
RetPath = Space$(512)
RetVal = SHGetPathFromIDList(ByVal PathID, ByVal RetPath)
If RetVal Then
Offset = InStr(RetPath, Chr$(0))
GetFolder = Left$(RetPath, Offset - 1)
End If
End Function
"O pior inimigo que você poderá encontrar será sempre você mesmo."
|
|
|
|
|
|
Postada em 20/01/2006 12:36 hs
Deu certo abrigado pela ajuda |
|
|
|
