SoloCodigo

Hola

Ps si tienes ya cargada la imagen y no necesitas la extension solo haces esto

sArchivo = Left(sArchivo, Len(sArchivo) - 4)

y eso es todo, sArchivo es el string donde tienes guardado el nombre del archivo

Espero k te sirva

Salu2

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

Holas...

ArKaNtOs...mas que nada gracias por responder...
pero este proyecto no tiene nada que ver con la escuela...solamente es un proyecto personal que comense a mitad del año pasado y que se estanco por el no saber tener los recursos para poder solucionarlo

Solamente puse el codigo porque estube probando eventos en los cuales poner la solucion que erick185 y leandrog me propusieron... y me tiraba errores...

solo pido eso...

desde aca perdon por tu desagrado...y si queres cuando termine el proyecto te lo mando para decirme que opinas...

saludos!

MarXe