18/11/2008, 06:45
|
| | | Fecha de Ingreso: noviembre-2008
Mensajes: 153
Antigüedad: 15 años, 6 meses Puntos: 0 | |
| Respuesta: error 9
Dim a As String
Dim aText() As String, s As String, variable As String
a = swModel.GetPathName
aText = Split(a, "\")
s = aText(UBound(aText))
variable = Left(s, InStr(s, ".") - 1)
lo q hace es guardar el nombre de una pieza en variables sabiendo su ruta. lo he usado en otros programas q he exo y nunca me a dado problemas, no se?? |