 |
Modelizacion Commit Soft Podra Buscar casos tipicos de errores y soluciones
|
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 |
|
 |
|
|
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
|