Mark A

Dosen't work with [B]Visual Basic 5[/B] until you add the following function; [code] Private Function Replace(ByVal convertString As String, ByVal swapThis As String, Optional ByVal withThis As String) As String ' Swaps 'swapThis' with 'withThis' in 'convertString'. Replace = "" If swapThis = "" Then swapThis = "?": withThis = …

If a drive has no title or the title is "" then can't read [B]d.VolumeName [/B]and program will crash. Replace [code] n = d.VolumeName [/code] with [code] On Error Resume Next n = "" n = d.VolumeName [/code]