if Dir(strFilePath2) <> vbNullstring Then SetAttr strFilePath2, vbNormal Kill strFilePath2End ifOpen strFilePath2 For Binary As #lngFileNo(以下略)っとしてみるとか?