comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Modulo Tratamiento de archivos

  • 0 Respuestas
  • 2812 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado alexander1712

  • *
  • Underc0der
  • Mensajes: 850
  • Actividad:
    0%
  • Reputación -2
    • Ver Perfil
    • El blog del programador
    • Email
« en: Enero 26, 2013, 12:56:47 pm »
agregar en un modulo bas:

Código: Visual Basic
  1. Option Explicit
  2.  
  3. '///////////// Tratamiento de archivos //////////
  4. '/////////// infiernohacker.com (c) 2011 /////////
  5.  
  6. Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
  7. Private Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOpenfilename As saveFILENAME) As Long
  8.    
  9. Private Type OPENFILENAME
  10.     lStructSize As Long
  11.     hwndOwner As Long
  12.     hInstance As Long
  13.     lpstrFilter As String
  14.     lpstrCustomFilter As String
  15.     nMaxCustFilter As Long
  16.     nFilterIndex As Long
  17.     lpstrFile As String
  18.     nMaxFile As Long
  19.     lpstrFileTitle As String
  20.     nMaxFileTitle As Long
  21.     lpstrInitialDir As String
  22.     lpstrTitle As String
  23.     flags As Long
  24.     nFileOffset As Integer
  25.     nFileExtension As Integer
  26.     lpstrDefExt As String
  27.     lCustData As Long
  28.     lpfnHook As Long
  29.     lpTemplateName As String
  30. End Type
  31.  
  32. Private Type saveFILENAME
  33.     lStructSize As Long
  34.     hwndOwner As Long
  35.     hInstance As Long
  36.     lpstrFilter As String
  37.     lpstrCustomFilter As String
  38.     nMaxCustFilter As Long
  39.     nFilterIndex As Long
  40.     lpstrFile As String
  41.     nMaxFile As Long
  42.     lpstrFileTitle As String
  43.     nMaxFileTitle As Long
  44.     lpstrInitialDir As String
  45.     lpstrTitle As String
  46.     flags As Long
  47.     nFileOffset As Integer
  48.     nFileExtension As Integer
  49.     lpstrDefExt As String
  50.     lCustData As Long
  51.     lpfnHook As Long
  52.     lpTemplateName As String
  53. End Type
  54.  
  55. Public Function dlg_open(ByVal filter As String, initialdir As String, title As String)
  56. Dim OFName As OPENFILENAME
  57.      
  58.     With OFName
  59.         .lStructSize = Len(OFName)
  60.         .hwndOwner = PMAKER.hWnd
  61.         .hInstance = App.hInstance
  62.         .lpstrFilter = filter
  63.         .lpstrFile = Space$(254)
  64.         .nMaxFile = 255
  65.         .lpstrFileTitle = Space$(254)
  66.         .nMaxFileTitle = 255
  67.         .lpstrInitialDir = initialdir
  68.         .lpstrTitle = title
  69.         .flags = 0
  70.     End With
  71.    
  72.     If GetOpenFileName(OFName) Then
  73.         dlg_open = Trim$(OFName.lpstrFile)
  74.     Else
  75.         dlg_open = "cancel"
  76.     End If
  77.  
  78. End Function
  79.  
  80. 'filter example: "Archivos de texto (*.txt)" + Chr$(0) + "*.txt" + Chr$(0) + "Todos los archivos (*.*)" + Chr$(0) + "*.*" + Chr$(0)
  81.  
  82.  
  83. Public Function dlg_Guardar(ByVal filter As String, initialdir As String, title As String) As String
  84. Dim OFName As saveFILENAME
  85.     With OFName
  86.         .lStructSize = Len(OFName)
  87.         .hwndOwner = PMAKER.hWnd
  88.         .hInstance = App.hInstance
  89.         .lpstrFilter = filter
  90.         .lpstrFile = Space$(254)
  91.         .nMaxFile = 255
  92.         .lpstrFileTitle = Space$(254)
  93.         .nMaxFileTitle = 255
  94.         .lpstrInitialDir = initialdir
  95.         .lpstrTitle = title
  96.         .flags = 0
  97.     End With
  98.  
  99.     If GetSaveFileName(OFName) Then
  100.         dlg_Guardar = Trim$(Replace(OFName.lpstrFile, Chr(0), ""))
  101.     Else
  102.         dlg_Guardar = "cancel"
  103.     End If
  104. End Function
  105.  
  106. Public Function save_file_append(ByVal ruta As String, contenido As String) As Boolean
  107. On Error GoTo svferror:
  108. Dim alexa As Integer
  109. alexa = FreeFile
  110.     Open ruta For Append As #alexa
  111.         Print #alexa, contenido
  112.     Close #alexa
  113. save_file_append = True
  114. Exit Function
  115. svferror:
  116. save_file_append = False
  117. End Function
  118.  
  119. Public Function save_file_out(ByVal ruta As String, contenido As String) As Boolean
  120. On Error GoTo svferror:
  121. Dim alexa As Integer
  122. alexa = FreeFile
  123.     Open ruta For Output As #alexa
  124.         Print #alexa, contenido
  125.     Close #alexa
  126. save_file_out = True
  127. Exit Function
  128. svferror:
  129. save_file_out = False
  130. End Function
  131.  
  132. Public Function open_file(ByVal ruta As String)
  133. Dim alexa As Integer
  134.     alexa = FreeFile
  135.     Open ruta For Input As #alexa
  136.         open_file = Input(LOF(alexa), #alexa)
  137.     Close #alexa
  138. End Function
  139.  
  140. Public Function open_file_bin(ByVal ruta As String)
  141. Dim alexa As Integer
  142.     alexa = FreeFile
  143.     Open ruta For Binary As #alexa
  144.         open_file_bin = Input(LOF(alexa), #alexa)
  145.     Close #alexa
  146. End Function
  147.  

comandos:

dialogo abrir:
dlg_open "Archivos de texto (*.txt)" + Chr$(0) + "*.txt" + Chr$(0),"c:\","Abrir"

dialogo guardar:
dlg_Guardar "Archivos de texto (*.txt)" + Chr$(0) + "*.txt" + Chr$(0),"c:\","guardar"

agregar datos a un archivo:
save_file_append ruta,datos

crear y guardar o borrar contenido y guardar datos en un archivo:
save_file_out ruta,contenido

abrir archivo:
variable = open_file (ruta)

la variable contendrá el archivo...

abrir exe:
variable = open_file_bin (ruta)

la varaible contendrá el binario.

saludos!
« Última modificación: Mayo 12, 2014, 03:37:25 pm por Expermicid »

 

¿Te gustó el post? COMPARTILO!



Abrir la caja de dialogo de Abrir con selección multiple de archivos(API)

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1917
Último mensaje Julio 26, 2010, 12:17:09 pm
por ANTRAX
Buscar archivos en forma avanzada usando funciones API

Iniciado por ANTRAX

Respuestas: 1
Vistas: 1589
Último mensaje Julio 28, 2010, 12:40:43 am
por Ignaro mayor de BsAs
Cómo descargar archivos de Internet

Iniciado por ANTRAX

Respuestas: 1
Vistas: 1773
Último mensaje Julio 27, 2010, 12:24:46 pm
por _katze_
Ejecutar Cualquier tipo de Archivos

Iniciado por ANTRAX

Respuestas: 1
Vistas: 1608
Último mensaje Julio 26, 2010, 12:50:40 pm
por _katze_
Borrar archivos temporales, cookies, etc

Iniciado por ANTRAX

Respuestas: 2
Vistas: 4218
Último mensaje Noviembre 27, 2011, 01:59:39 am
por Bic