pedro
06 de Mayo del 2004

quiero hacer un dir pero que me debuelva solo el nombre de los archivos , se puede hacer??

en?
06 de Mayo del 2004

obtener el nombre sin la extensión lo puedes hacer con GetBaseName del FileSystemObject, yo lo hago de esta forma:

Dim Fs, Archivo As String

Set Fs = CreateObject("Scripting.FileSystemObject")
Archivo=Dir("C:")
Do While Archivo<>""
List1.AddItem Fs.GetBaseName(Archivo)
Archivo =Dir
Loop
Set Fs = Nothing


También podrías así:

If instr(1, Archivo, ".") <>0 then
List1.AddItem Left(Archivo, instrrev(archivo, ".")-1)
Else
list1.Additem Archivo
endif


saludos.