uso de APP.PATH...???

[ccca001]

no funciona porque app.path devuelve el valor con comillas y esas son justamente las que hay que sacarles...de hecho encontre una funcion:

sfile=lineacomandos()

Private Function LineaComandos() As String
Dim sTmp As String
Dim i As Integer

'Comprobar si hay algún archivo en la línea de comandos
sTmp = Trim$(Command$)
If Len(sTmp) Then
'Si tiene los caracteres de comillas, quitarselos
i = InStr(sTmp, Chr$(34))
If i Then
sTmp = Left$(sTmp, i - 1) & Mid$(sTmp, i + 1)
i = InStr(sTmp, Chr$(34))
If i Then
sTmp = Left$(sTmp, i - 1) & Mid$(sTmp, i + 1)
End If
End If
End If
LineaComandos = sTmp
End Function

pero tampoco me ha funcionado, pero estoy "tratando" de arreglarla para mi, pero si tienes otra idea... fantastico...