乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 109|回复: 9

[求助]文件操作出错

[复制链接]

1

主题

6

帖子

1

银币

初来乍到

Rank: 1

铜币
10
发表于 2007-9-11 16:43:00 | 显示全部楼层 |阅读模式
照着书上的例子做,为什么出错了。那位大侠能告诉我为什么啊?

ctabtdhmv2g.jpg

ctabtdhmv2g.jpg

回复

使用道具 举报

1

主题

6

帖子

1

银币

初来乍到

Rank: 1

铜币
10
发表于 2007-9-17 10:53:00 | 显示全部楼层
怎么没有人帮助啊,大家都没遇到过这问题。
回复

使用道具 举报

3

主题

41

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
53
发表于 2007-9-18 14:21:00 | 显示全部楼层
你确定你电脑的C盘Test目录下已经存在Temp.txt这个文件了吗?如果没有请自己创建这个文件然后再运行程序。
回复

使用道具 举报

1

主题

6

帖子

1

银币

初来乍到

Rank: 1

铜币
10
发表于 2007-9-19 21:25:00 | 显示全部楼层
当然确定这个文件夹下有这个文件.
回复

使用道具 举报

25

主题

219

帖子

6

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
319
发表于 2007-9-20 08:34:00 | 显示全部楼层
C:\123  兄弟“\”反了吧。还有应是 AS #1 
细心点
回复

使用道具 举报

1

主题

6

帖子

1

银币

初来乍到

Rank: 1

铜币
10
发表于 2007-9-21 15:49:00 | 显示全部楼层

我改了还是一样的错误。
Public Sub test()
Open "c:\test\temp.txt" For Append As 1#
Dim a As Integer, b As Integer, c As Integer, d As String
a = 1: b = 2: c = 3: d = "hello"
Write #1, a, b, c, d, "world"
End Sub
回复

使用道具 举报

10

主题

131

帖子

7

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
171
发表于 2007-9-21 17:20:00 | 显示全部楼层
我试了一下,是没有c:\test这个文件夹
回复

使用道具 举报

1

主题

6

帖子

1

银币

初来乍到

Rank: 1

铜币
10
发表于 2007-9-26 16:49:00 | 显示全部楼层


                               
登录/注册后可看大图


                               
登录/注册后可看大图


                               
登录/注册后可看大图


                               
登录/注册后可看大图


                               
登录/注册后可看大图


                               
登录/注册后可看大图


                               
登录/注册后可看大图

就是错误啊,真的不知道出了什么问题。我有test的这个文件夹啊。
回复

使用道具 举报

1

主题

6

帖子

1

银币

初来乍到

Rank: 1

铜币
10
发表于 2007-9-26 16:50:00 | 显示全部楼层


                               
登录/注册后可看大图


                               
登录/注册后可看大图


                               
登录/注册后可看大图


                               
登录/注册后可看大图


                               
登录/注册后可看大图


                               
登录/注册后可看大图


                               
登录/注册后可看大图


                               
登录/注册后可看大图


                               
登录/注册后可看大图

就是不行啊,我明明有test这个文件夹啊。
回复

使用道具 举报

25

主题

219

帖子

6

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
319
发表于 2007-9-26 17:34:00 | 显示全部楼层
我改了还是一样的错误。
Public Sub test()
Open "c:\test\temp.txt" For Append As 1#  这样可以吗?感觉是#1吧
Dim a As Integer, b As Integer, c As Integer, d As String
a = 1: b = 2: c = 3: d = "hello"
Write #1, a, b, c, d, "world"
End Sub
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-6 10:26 , Processed in 0.647084 second(s), 75 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表