Change:
Quote:
Set oFH = oFSO.CreateTextFile("driveinfo.txt",True)

To:
Quote:
Set oFH = oFSO.CreateTextFile("driveinfo.txt", 8, True)
_________________________
Donato
MkII/080000565
MkIIa/010101253
ricin.us