Holas
muchisimas gracias por responder...
pero ahora me agarro una duda de imprevisto...
la cual es en que parte del codigo meto ese pedazo de codigo...osea para q funcione...
aca tengo una pagina de los codigos de este proyecto...
Option Explicit
Dim Path2 As String
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
'Prevusualizacion De La Imagen...
ImagePreVis.Picture = LoadPicture(File1.Path & "\" & File1.FileName)
'Fin Prevusualizacion De La Imagen...
' ___________________
'Total Archivos
Label1TotArc = File1.ListCount
'Fin Total Archivos
' ___________________
'Nombre Del Archivo
LabelNombre2 = File1.FileName
File1.n
'Fin Nombre Archivo
' ___________________
'Numero Concurrente
If File1.ListIndex = -1 Then
Label2.Caption = ""
Else
Label2.Caption = File1.ListIndex + 1
End If
'Fin De Numero Concurrente
' ___________________
'Tamaño Individual Archivo
Dim a As String
a = 0
Dim b As String
If Len(File1.Path) = 3 Then
Path2 = File1.Path & File1.FileName
Else
Path2 = File1.Path & "\" & File1.FileName
End If
If File1.ListIndex = -1 Then
LabelTamArc.Caption = ""
Else
a = Format$(FileLen(Path2), "###,###,###")
If a < 1004 Then
b = a
LabelTamArc.Caption = b & " Bytes"
ElseIf a >= 1004 And a < 1027604 Then
b = a / 1024
If Format(b, "###.##") = Format(b, "###.") Then
LabelTamArc.Caption = Format(b, "###") & " KB "
Else
LabelTamArc.Caption = Format(b, "###.##") & " KB "
End If
ElseIf a >= 1027604 Then
b = a / 1048576
If Format(b, "###.##") = Format(b, "###.") Then
LabelTamArc.Caption = Format(b, "###") & " KB "
Else
LabelTamArc.Caption = Format(b, "###.##") & " KB "
End If
LabelTamArc.Caption = Format(b, "###.##") & " MB "
End If
End If
'Fin Tamaño Individual Archivo
' ________________
'Tamaño Del Directorio
' * conseguir el codigo... :'(+
End Sub
Private Sub LabelVolver_Click()
Unload Me
Form2PixelEngineMainMenu.Show
'Descarga y muestra el menu Form2PixelEngineMainMenu
End Sub
Private Sub Timer1_Timer()
If Timer Then
LabelTime.Caption = Time
End If
End Sub
en resumen mi pregunta puntual seria...
en que objeto y evento tengo q poner ese codigo para que lo que quiero hacer yo funcione...
Desde aca...
muchisimas gracias por responder...
MarXe
Mostrar Mensajes
)
