这个已经解决了代码如下：
'----------------------------------------先是创建一个操作日志------------------------
If Dir("d:\物号替换日志", vbDirectory) <> "" Then
Else
MkDir "d:\物号替换日志" '创建文件夹,一定要加上这个判断条件，否则报错
End If
Dim kl As String
Dim str2 As String
str2 = Format$(Now, "yyyymmdd") & Format$(Now, "hhmmss") '选取时间的数字作为文件名开头
'Me.Label34.Caption = Format$(Date, "yyyy年mm月dd日 ") & WeekdayName(Weekday(Date)) & Format$(Time, " hh:nn:ss")
'DoCmd.OutputTo acOutputTable, "日志", acFormatTXT, "D:\日志\" & str2 & ".txt", False '对文件进行输出，这里肯定是创建（因为没有重复的时间）
'ky = "D:\日志\" & str2 & ".txt"
kl = "D:\物号替换日志\" & str2 & ".txt"
Open "" & kl & "" For Append As #1'调用open语句，如果没有生成则会自动生成。这里肯定是唯一的文件，因为只要时间对了，就没有时间会重复吧
