Hola, parece que tienes varios errores en el código así que voy a tratar de darte una orientación, aquí estamos para aprender
. Una ruta o nombre de archivo siempre se maneja como texto. Por tanto no debes usar Dim FileName As Single sino Dim FileName As String.
Tienes que diferenciar entre una variable de tipo texto (alfanumérica) que contiene un número de una variable numérica propiamente dicha. Puedes consultar
http://aprenderaprogramar.com/index.php?option=com_content&view=article&id=238:contenido-y-asignacion-de-contenido-a-variables-con-pseudocodigo-tipos-de-variables-basicos-cu00126a&catid=28:curso-bases-programacion-nivel-i&Itemid=59 donde hay una explicación
La otra cuestión a la que debes prestar atención es a cuál es el valor de las variables cuando las invocas.
En este fragmento tienes:
ruta = "E\mis cosas\IMÁGENES ANTONIO (TRABAJOS)\FM2014\Partidas\Gráficos\Faces\Player\" & FileName & ""
FileName = Val(TextBox1.Text)
Fíjate que en la primera línea llamas a Filename, pero FileName está vacío porque todavía no ha recibido una asignación.
Esto es un error conceptual. Te recomiendo leer esto para orientarte
https://www.aprenderaprogramar.com/foros/index.php?topic=1313.0También tienes que prestar atención a las rutas. Esta ruta está mal escrita: E\mis cosas\IMÁGENES ANTONIO
Posiblemente la ruta sea E:\mis cosas\IMÁGENES ANTONIO
Si te faltan unos dos puntos o un simple espacio ya no funcionará. Te recomiendo copiar la ruta directamente del explorador de windows.
También te recomiendo introducir mensajes de comprobación, por ejemplo si introduces MsgBox(ruta & " es la ruta") podrás comprobar que no estás generando bien la ruta y a continuación preguntarte ¿por qué no me genera bien la ruta? Y así corregirlo...
Con este código donde se refleja lo anterior yo he conseguido que me funcione introduciendo en el textbox el nombre del fichero, por ejemplo avioneta.jpg
Pero cada cual tendrá que introducir la ruta que esté usando correctamente, la que pone el código es sólo un ejemplo
Public Class Form1
Dim FileName As String
Dim ruta As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = "Buscador de jugadores"
Label1.Text = "Introduce la ID del jugador"
Button1.Text = "Comprobar"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
FileName = TextBox1.Text
ruta = "C:\Users\Alex\Imgs\" & FileName & ""
MsgBox(ruta & " es la ruta")
If System.IO.File.Exists(ruta) = True Then
MsgBox("El jugador cuya ID es " & FileName & " SI existe en la carpeta")
Else
MsgBox("El jugador cuya ID es " & FileName & " no existe en la carpeta")
End If
End Sub
End Class
Saludos
Mostrar Mensajes
RSS