Visual Basic - Ayuda con FileListBox

Life is soft - evento anual de software empresarial
   
Vista:

Ayuda con FileListBox

Publicado por Arra (43 intervenciones) el 27/10/2010 23:34:27
Hola amig@s. No se porque no me sale esta pequeña parte de mi programa. Por favor necesito vuestra ayuda, si sois tan amables.
---------------
Quiero que al pinchar en cualquier archivo de este FileListBox, automaticamente me lo introduzca en el TextBox sin la extension, y al perder este el foco, el File se inabilite. Lo hago asi:

Dim longD As Integer
Dim longE As Integer
Dim longF As String
Dim CarpetadeProgramas As string

Private Sub File2_Click()
If Len(File2.filename) < 0 Then
NADA1 = ""
Else
If Len(File2.filename) > 1 Then
longD = Len(File2.filename) ' Longitud total del nombre fichero+extension.
longE = longD - 4 'Longitud total-4caracteres (por ".ext")
longF = Left(File2.filename, longE)
Text11.Text = longF
End If
End If
End Sub

Private Sub Text11_GotFocus()
Text11.BackColor = &HFFFFC0
File2.BackColor = &HFFFFC0
File2.Enabled = True
End Sub

Private Sub Text11_LostFocus()
File2.BackColor = &H8000000F
File2.Enabled = False
End Sub

Private Sub Form_Load()
CarpetadeProgramas = "C:\Ficheros"
File2.Path = CarpetadeProgramas
End Sub

---------------------

Faltan los Enabled=Falde/True...., en fin, eso me sale bien. El problema es que cuando pincho en un fichero, inabilita el TextBox, se va al siguiente elemento, PERO... NO mete el fichero sin su extensdion en el Text11.

GRACIAS de antemano a tod@s.

ARRA
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda con FileListBox

Publicado por Pedro Luis (128 intervenciones) el 28/10/2010 09:48:55
Text11=mid(file2,1,instr(file2,".")-1)

Explicación: Text11 será igual a lo que hay en file2 desde el caracter 1 hasta encontrar el punto, como el punto no debe salir -1.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda con FileListBox

Publicado por Arra (43 intervenciones) el 28/10/2010 20:41:40
Hola Pedro Luis.
GRACIAS por tu ayuda. No lo entiendo, pero a ver si la saco con mucha paciencia. No estoy muy puesta en esto y.....

GRACIAS de nuevo amigo.

Arra
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda con FileListBox

Publicado por XHkrElite (518 intervenciones) el 31/10/2010 00:26:46
escribe esto en File1_Click

Private Sub File1_Click()
Set fso = CreateObject("scripting.filesystemobject")
Text11 = fso.GetBaseName(File1.FileName)
File1.Enabled = False
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar