ayuda con este codigo!!!!!

[carlosdltp]

Gracias a todos, he corregido algunos errores y ya me va saliendo algo, aunque no exactamente lo que pretendo.

este es el codigo que tengo ahora:

Dim sParaComprimir As String, sComprimido As String, sPath As String

sPath = Dir1.Path

sParaComprimir = List2.Text
sParaComprimir = sPath + "\" & sParaComprimir

sComprimido = List2.Text
sComprimido = sPath + "\" & sComprimido

Shell "C:\Archivos de programa\WinRAR\WinRAR.exe a -sfx " & sComprimido & " " & sParaComprimir, vbNormalFocus

Con esto si picho en el list sobre un fichero me comprime el directorio en el que se encuentra ese fichero, es decir, supongamos que pincho sobre un fichero "texto.txt" que se en encuentra dentro del directorio C:\Prueba, pues esto me comprime Prueba y texto.txt.

Yo lo que quiero es que solo me comprima el fichero sobre el que pincho y me lo guarde en el mismo directorio donde está.

Alguna idea??

Muchas gracias.