Índice del Foro Modelizacion Commit Soft Modelizacion Commit Soft
Podra Buscar casos tipicos de errores y soluciones
 
 F.A.Q.F.A.Q.   BuscarBuscar   Lista de MiembrosLista de Miembros   Grupos de UsuariosGrupos de Usuarios   RegístreseRegístrese 
 PerfilPerfil   Conéctese para revisar sus mensajesConéctese para revisar sus mensajes   ConectarseConectarse 

Como mostrar un dialogo de Windows para abrir un archivo

 
Publicar Nuevo Tema   Responder al Tema    Índice del Foro Modelizacion Commit Soft -> Vb Script
Ver tema anterior :: Ver siguiente tema  
Autor Mensaje
Typhon Software
Site Admin


Registrado: 24 Jul 2006
Mensajes: 247
Ubicación: Bs As Argentina

MensajePublicado: Mar Dic 16, 2008 10:49 am    Título del mensaje: Como mostrar un dialogo de Windows para abrir un archivo Responder citando

Esto esta muy bueno... porque nos permite mostrar un dialogo de Windows para abrir un archivo y es como si se abre un mini explorador de Windows...


jajaj, ojo solo esta disponible para XP, por lo menos es lo que lei en la web de donde lo saque... les paso una porcion del codigo...

Salute...

Código:
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "Archivos de Texto|*.txt|All Files|*.*"
objDialog.FilterIndex = 1
objDialog.InitialDir = "C:\"
intResult = objDialog.ShowOpen

If intResult = 0 Then
    Mensaje = "El proceso fue abortado por el operador"
    exit sub
Else
    Mensaje = objDialog.FileName
End If




en el ejemplo nos muestra todos los archivos del tipo txt pero eso lo pueden ajustar en la linea

Código:
objDialog.Filter = "Archivos de Texto|*.txt|All Files|*.*"



y ademas pueden apuntar algun directorio que quieran, eso lo ajustan en linea

Código:
objDialog.InitialDir = "C:\"


Recuerden que en Commit Soft ERP, pueden usar la funcion App_Path que les dice en que directorio estan parados les dejo el link de la funcion si les interesa

http://www.typhon.com.ar/casos/apppath-vt192.html

Si quieren profundizar aqui les dejo la direccion del articulo donde lo lei...
Fuente...
http://www.microsoft.com/spain/technet/recursos/tesoros/hey/mar05/hey0301.mspx
_________________
http://www.typhon.com.ar - Soporte y Ayuda para la implementacion de Commit Soft ERP. info@typhon.com.ar
Volver arriba
Ver perfil del usuario Enviar mensaje privado Enviar correo Visitar sitio web del autor
Typhon Software
Site Admin


Registrado: 24 Jul 2006
Mensajes: 247
Ubicación: Bs As Argentina

MensajePublicado: Mar Jul 01, 2014 1:32 am    Título del mensaje: Mejora de busqueda de archivo para windows 7 Responder citando

Les dejo una funcion que funciona perfecto para buscar un file en Windows 7, tambien funciona en XP y Windows 8

Que la disfruten... Wink
Valen los creditos para los verdaderos autores, Rudi Degrande, modifications by Denis St-Pierre And Rob van der Woude


Código:

Sub main ()
  archivo1 = ChooseFile()
  'en la variable archivo1 quera toda la ruta del archivo seleccionado
end sub


Function ChooseFile( )
    ' File Browser via HTA
    ' Author:   Rudi Degrande, modifications by Denis St-Pierre And Rob van der Woude
    ' Features: Works In Windows Vista And up (Should also work In XP).
    '           Fairly fast.
    '           All native code/controls (No 3rd party DLL/ XP DLL).
    ' Caveats:  Cannot define default starting folder.
    '           Uses last folder used with MSHTA.EXE stored In Binary In [HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\ComDlg32].
    '           Dialog title says "Choose file To upload".
    ' Source:   http://social.technet.microsoft.com/Forums/scriptcenter/en-US/a3b358e8-15&ælig;-4ba3-bca5-ec349df65ef6

    Dim objExec, strMSHTA, wshShell

    ChooseFile = ""

    ' For use In HTAs as well as "plain" VBScript:
    strMSHTA = "mshta.exe ""about:" & "<input>" _
             & "<script>FILE.click();new ActiveXObject('Scripting.FileSystemObject')" _
             & ".GetStandardStream(1).WriteLine(FILE.value);close();resizeTo(0,0);" & "</script>"""
    ' For use In "plain" VBScript only:
    ' strMSHTA = "mshta.exe ""about:<input>" _
    '          & "<script>FILE.click();new ActiveXObject('Scripting.FileSystemObject')" _
    '          & ".GetStandardStream(1).WriteLine(FILE.value);close();resizeTo(0,0);</script>"""

    Set wshShell = CreateObject( "WScript.Shell" )
    Set objExec = wshShell.Exec( strMSHTA )

    ChooseFile = objExec.StdOut.ReadLine( )

    Set objExec = Nothing
    Set wshShell = Nothing
End Function

_________________
http://www.typhon.com.ar - Soporte y Ayuda para la implementacion de Commit Soft ERP. info@typhon.com.ar
Volver arriba
Ver perfil del usuario Enviar mensaje privado Enviar correo Visitar sitio web del autor
Mostrar mensajes anteriores:   
Publicar Nuevo Tema   Responder al Tema    Índice del Foro Modelizacion Commit Soft -> Vb Script Todas las horas están en GMT - 3 Horas
Página 1 de 1

 
Saltar a:  
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas


Powered by PhpBB © 2001, 2005 phpBB Group y Typhon © Empresa Desarrolladora de Software