Modelizacion Commit Soft Podra Buscar casos tipicos de errores y soluciones    F.A.Q.   Buscar   Lista de Miembros   Grupos de Usuarios   Regístrese   Perfil   Conéctese para revisar sus mensajes   Conectarse  Como mostrar un dialogo de Windows para abrir un archivo          Í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: 248 Ubicación: Bs As Argentina Publicado: Mar Dic 16, 2008 10:49 am    Título del mensaje: Como mostrar un dialogo de Windows para abrir un archivo 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 Typhon Software Site Admin Registrado: 24 Jul 2006 Mensajes: 248 Ubicación: Bs As Argentina Publicado: Mar Jul 01, 2014 1:32 am    Título del mensaje: Mejora de busqueda de archivo para windows 7 Les dejo una funcion que funciona perfecto para buscar un file en Windows 7, tambien funciona en XP y Windows 8 Que la disfruten... 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 Mostrar mensajes anteriores: Todos los mensajes1 Día7 Días2 Semanas1 Mes3 Meses6 Meses1 Año El más antiguo primeroEl más reciente primero         Índice del Foro Modelizacion Commit Soft -> Vb Script Todas las horas están en GMT - 3 Horas Página 1 de 1   Saltar a: Seleccione un foro Manuales y Documentacion----------------Manuales didacticos Commit Soft ERP Configuraciones Linux ----------------Ubuntu Server y Commit Soft ERP Modelizacion ERP - Commit Soft----------------Circuitos (Work Flow)Crystal Report & Reportes WebVb ScriptConsultas Sql de VistasHardware / Sistemas Operativos / Motores de Datos / KeyParametros, Modelizacion y EventosFunciones Especiales de COMMIT SOFTGadgets Para Commit SoftDefinicion de objetos internos - Roles Errores de Aplicacion----------------Errores en Commit SoftErrores en Developer ToolErrores Commit Auto-Backup Nuevas Versiones----------------Descripcion de VersionesConsultas VersionesMejoras y sugerencias  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