muwei1990
muwei1990
采纳率0%
2015-06-19 07:39

在win7中运行VB程序产生实时错误76,求大神指导

在VB程序运行时,存储数据提示“实时错误76”,并指向Open Left(App.Path, Len(App.Path) - 0) + "\data\" + Format(Now, "yy/mm/dd/hh/mm/ss") + ".txt" For Binary As #1这句话,请问怎么解决?运行环境是win7,求大神指导啊!!!急急急 !!!

  • 点赞
  • 写回答
  • 关注问题
  • 收藏
  • 复制链接分享
  • 邀请回答

2条回答

  • baidu_34953000 baidu_34953000 5年前

    楼主,你的“Open Left(App.Path, Len(App.Path) - 0) + "\data\" + Format(Now, "yy/mm/dd/hh/mm/ss") + ".txt" For Binary As #1”错误问题解决了吗?求解啊!!!

    点赞 评论 复制链接分享
  • danielinbiti danielinbiti 6年前
    ANSI String文件名不能被正确识别的问题。
    其实2000以后,系统就开始全面支持Unicode了,而VB6比较老,为兼容95,一直是强制将本身的Unicode转成ANSI,这对于win2000以上的系统,实际上是极低效的做法,VB把Unicode转成ANSI,系统需把这ANSI再次转成Unicode才能使用,碰到上面情况还会出错。 用API操作
    Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileW" (ByVal lpFileName As Long, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
    文件名参数,传递时,要用Byval Strptr(Filename)的方式。 
    
    点赞 1 评论 复制链接分享

为你推荐