你根本就没写对,连判断都错了。Dim sex As StringDim FileName As StringFileName = "D:\CC\LJ.TXT"If Dir(FileName)"" ThenOpen FileName For Input As #1Input #1, sexClose #1ElseIf Dir("D:\CC") = "" Then MkDir ("D:\CC")Open FileName For Output As #1Print #1, "1"Close #1MsgBox "第一次登录注册信息成功 账户信息:普通用户", vbInformation, "提示"End If...