Dim Scanmaps() As String
ReDim Scanmaps(1 To .FoundFiles.Count, 1 To 2) As String
'Dim Scanmaplength As Integer

For i = 1 To .FoundFiles.Count
Scanmaps(i, 1) = Dir(.FoundFiles.Item(i))
Scanmaplength = Len(Scanmaps(i, 1)) - 4
Scanmaps(i, 1) = Left(Scanmaps(i, 1), Scanmaplength)

Next i


--
icdoo
------------------------------------------------------------------------
icdoo's Profile: http://www.excelforum.com/member.php...o&userid=27342
View this thread: http://www.excelforum.com/showthread...hreadid=501422