Sección de código fuente Visual basic

Programa en Visual Basic para Partir archivos

Código fuente de una utilidad que permite poder dividir un archivo en partes , y luego poder volver a unir las partes del fichero en el archivo original

---

 

En el primer textbox tenemos que seleccionar el fichero que queremos dividir y en el TextBox de abajo donde se guardarán las partes o porciones del fichero.

El combo que dice 7, es donde especificamos la cantidad de partes que queremos cortar el fichero, por defecto el mínimo es de 2 y el máximo de 50 partes, obviamente el máximo se puede cambiar.

En el label de abajo que en el ejemplo dide 676425, cuando seleccionamos un valor en el Combo que indica las partes, se muestra el peso en bytes que tendrá cada fichero generado.

Por último se genera un archivo .Bat para poder restaurar y unir el archivo original mediante el comando de Dos Copy /b

Por ejemplo si cortamos un archivo llamado archivo.zip en 3 partes, se generará el siguiente archivo .Bat:

 

 

La imágen del programita:

 

El comando Copy /b copia en forma binaria un archivo en otro, de esta manera podemos unir todos los restantes.

En el código está eplicado mas o menos como funciona.

Descar código fuente:

 

Nota: al final de la página hay otro código fuente , que permite dividir y particionar archivos y luego poder volver a unirlos

 

Código fuente en un formulario

'Apis constantes y Estructura para la ventana de buscar carpeta Private Type BrowseInfo hWndOwner As Long pIDLRoot As Long pszDisplayName As Long lpszTitle As Long ulFlags As Long lpfnCallback As Long lParam As Long iImage As Long End Type Const BIF_RETURNONLYFSDIRS = 1 Const MAX_PATH = 260 Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long) Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" ( _ ByVal lpString1 As String, _ ByVal lpString2 As String) As Long Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long Private Declare Function SHGetPathFromIDList Lib "shell32" ( _ ByVal pidList As Long, _ ByVal lpBuffer As String) As Long Dim tamaño As Long 'Cuando seleccionamos un valor del combo es para _ determinar la cantidada de archivos en el que se _ va a partir el original, llamando al procedimiento CalcularPeso Private Sub Combo1_Click() CalcularPesoFile CByte(Combo1) End Sub Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 'Este boton ejecuta el coomondialog para buscar el archivo With CommonDialog1 .DialogTitle = "Seleccione el archivo que desea partir" 'Indicamos el directorio inicial .InitDir = App.Path 'Mostramos todos los tipos de archivos en el cuadro de dialogo .Filter = "Todos los tipos de arhivos" 'Abrimos .ShowOpen If .FileName = "" Then Exit Sub Text1(0) = .FileName 'Obtenemos el tamaño del archivo en bytes tamaño = FileLen(.FileName) Label1(2).ForeColor = vbBlue 'Mostramos en este Label el tamaño del fichero Label1(2) = "Tamaño del archivo es de: " & tamaño & " Bytes" 'Llamamos al procedimiento que calcula cuanto va a _ pesar aproximadamente cada porción del archivo CalcularPesoFile 2 End With Case 1 'Este boton llama al procedimiento para _ seleccionar el directorio donde generar los archivos selecDir Case 2 salir Case 3 'Este boton ejecuta el proceso que corta los archivos CortarArchivo End Select If Text1(1) <> "" And Text1(0) <> "" Then CoAmmand1(3).Enabled = True End Sub Private Sub Form_Load() Dim i As Byte Me.Caption = "Tijeretazo 1.0" With Command1 .Item(0).Caption = "Seleccione el archivo" .Item(1).Caption = "Guardar en " .Item(2).Caption = "Salir" .Item(3).Enabled = False .Item(3).Caption = ">> Cortar archivo" End With Text1(0).Locked = True: Text1(1).Locked = True Frame1(0).Caption = "Seleccioná el archivo a cortar y la ruta donde se guardarán:" Label1(0).Caption = "Bytes aproximados de cada porción del archivo " Label1(0).AutoSize = True Label1(1).Caption = "Seleccioná la cantidad de partes en la que se cortará el archivo" Label1(1).AutoSize = True Text1(2).Locked = True: Text1(2).BorderStyle = 0 'Acá llenamos el combo que tiene los valores para elegir _ en cuantos pedazos vamos a cortar el archivo Le ponemos _ un valor minimo de 2 y uno maximo de 50 por ejemplo For i = 2 To 50 Combo1.AddItem i Next Combo1 = Combo1.List(0) End Sub '----------------------------------------------- 'Este s el procedimiento principal del programa '______________________________________________ Private Sub CortarArchivo() 'Array binario dinamico para leer y escribir el archivo mediante For Binary Dim FileData() As Byte 'Esta variable almacena el n| de bytes restantes cuando _ dividimos el archivo por ejemplo si tengo un archivo de 10 Kb, _ y lo divido por 3, sobra un Byte Dim lenResto As Long 'Variable para posicionarnos en la lectura del Fichero Dim pos As Long 'Para el nombre del Archivo original y para las partes que se van a generar Dim nameFile As String 'Este es un String que almacena una cadena con el contenido de un _ archivo .Bat que generará el programa 'Mediante este archivo después se puede juntar las porciones y _ restablecer el fichero original Dim archivoBAT As String 'Valores para la barra de progreso ProgressBar1.Min = 0 ProgressBar1.Max = CByte(Combo1) * 100 pos = 1 'Separamos el nombre del Fichero del Path nameFile = Right(Text1(0), Len(Text1(0)) - InStrRev(Text1(0), "\")) 'AAbrimos en modo binario para leer el fichero a particionar Open Text1(0) For Binary Access Read As #1 'Creamos un fichero Bat para almacenar los comandos que restablecerá el fichero Open Text1(1) & "\" & nameFile & ".bat" For Append As #3 i = 1 'Mediante el comando copy /b del Dos podemos copiar un fichero _ en modo binario en otro fichero para generar uno solo archivoBAT = ("copy /b ") + Chr(34) & (i) & _ (nameFile) + Chr(34) + Chr(32) + Chr(34) + (nameFile) + Chr(34) 'Escribimos el comando en el archivo Bat Print #3, archivoBAT 'Obtenemos el resto en Bytes del Fichero con el operador Mod lenResto = tamaño Mod CLng(Combo1) 'Este bucle es el que empieza a leer en forma binaria _ (Get) el fichero original y copia en disco las porciones con Put For i = 1 To CByte(Combo1) 'Si i = ultiimo pedaso de archivo, escribimos el ultimo fragmento If i = CByte(Combo1) Then 'redimensionamos el array teniendo encuenta el valor de _ Text1(2) que es el valor de cada porción + el resto ReDim FileData(CLng(Text1(2)) + lenResto - 1) 'Nos ubicamos en la posición correcta para leer mediante _ Pos y almacenamos en FileDAta la porción del fichero para escribir Get #1, pos, FileData 'Acá creamos la porción del ultimo fichero Open Text1(1) & "\" & i & nameFile For Binary Access Write As #2 'Grabamos el array Put #2, , FileData 'Cerramos Close #2 Else 'Redimensionamos de acuerdo al valor de Text1(2) que indica el _ tamaño en bytes que va a tener cada porción ReDim FileData(CLng(Text1(2)) - 1) 'Leemos mediante Get en lam posición ciorrecta mediante Pos y _ almacenamos en el array los datos Get #1, pos, FileData 'Creamos un fichero binario, i establece el archivo que se esta _ grabando por ejemplo, porcion1, porcion2, porcion3 etc... Open Text1(1) & "\" & i & nameFile For Binary Access Write As #2 'Escribimos los datos Put #2, , FileData 'Nos ubicamos en la posición correcta del fichero para la proxima _ leer los datos en el proximo bucle pos = pos + CLng(Text1(2)) 'CerramAos el fichero Close #2 End If 'Escribimos en el fichero Bat los comandos para despues unir el _ archivo indicando los nombres de los mismos archivoBAT = ("copy /b ") + Chr(34) + (nameFile) + Chr(34) + _ Chr(43) + Chr(34) & (i + 1) & (nameFile) + Chr(34) Print #3, archivoBAT DoEvents 'Establecemos el value del progress ProgressBar1.Value = ProgressBar1.Value + 100 Next 'Poceso terminado Close 'Ponemos en 0 el progreso ProgressBar1.Value = 0 'Borramos todo los datos de os controles Text1(0) = "" Text1(1) = "" Text1(2) = "" Command1(3).Enabled = False Label1(2) = "" 'Mostramos un mensaje de la cantidad de archivos generados e indicando _ que se generóa un archivo bat en el directorio seleccionado MsgBox "Se ha generado un archivo Bat, junto con los restantes archivos." + _ vbCrLf + "Ejecutelo para volver a unirlos.", vbInformation + vbOKOnly End Sub 'Este procedimiento obtiene el peso del fichero y calcula, _ dependiendo la cantidad de partes que queremos cortar el archivo, _ el tamaño en bytes de cada fichero Private Sub CalcularPesoFile(num As Byte) Text1(2) = Int(tamaño / num) End Sub 'Este código abre la ventana clasica de windows para buscar una carpeta Private Sub selecDir() Dim iNull As Integer, lpIDList As Long, lResult As Long Dim sPath As String, udtBI As BrowseInfo With udtBI 'Pasamos el hwnd de nuestro form .hWndOwner = Me.hWnd 'Establecemos la leyenda del cuadro y Retorna la dirección de memoria .lpszTitle = lstrcat("C:\", "") 'Retornar solo si el usuario selecciona un dir .ulFlags = BIF_RETURNONLYFSDIRS End With 'Mostrar el cuadro de dialogo lpIDList = SHBrowseForFolder(udtBI) If lpIDList Then sPath = String$(MAX_PATH, 0) 'Llamamos a la APi y recuperamos el id del path y en sPath _ obtenemos el path seleccionado SHGetPathFromIDList lpIDList, sPath 'Liberamos el bloque de memoria CoTaskMemFree lpIDList iNull = InStr(sPath, vbNullChar) If iNull Then 'Formateamos la cadena sPath = Left$(sPath, iNull - 1) End If End If 'Mostramos el Path elegido Text1(1) = sPath End Sub Private Sub mnuprograma_Click() MsgBox "Programa para cortar archivos. Seleccioná un archivo y cortalo" & _ "en varias partes" + vbCrLf + "Después para unirlo, pinchá el archivo" & _ ".BAT que se crea en el directorio que elejiste", vbInformation + vbOKOnly End Sub Private Sub mnuSalir_Click() salir End Sub Private Sub salir() If MsgBox("Deseás salir??", vbInformation + vbOKCancel) = vbOK Then End End Sub

 

---

File Splitter

 

El siguiente Zip contiene un proyecto Open Source, para poder particionar archivos en varias partes.

 

Captura del programa :

 

Descargar File splitter

---

Multi File 4

Código fuente enviado por Christian, y es un programa para poder unir archivos en uno solo y también se puede editar su contenido sin necesidad de extraer los ficheros

Descargar

 

 

---

Buscar en Recursos vb

---

Recursos visual basic - Buscar - Privacidad - Copyright © 2005 - 2009 - www.recursosvisualbasic.com.ar