如何判断一个文件是否被别的程序打开

wzxypq 2003-09-15 01:56:22
比如一个文本文件,
我做过实验,在一个程序中写入文本文件,在另一程序中读取不会出错
程序1
Dim myRecord As Record
Open filePathName For Random As #1 Len = Len(myRecord)



For RecordNumber = 1 To 5
myRecord.ID = RecordNumber
myRecord.Name = "My Name" & RecordNumber
Put #1, RecordNumber, myRecord
MsgBox "ok" '
Next RecordNumber

Close #1

程序2

Dim i As Integer
Dim recordCounts As Integer
Dim tempRecord As Record
On Error GoTo line1

Open filePathName For Random As #1 Len = Len(tempRecord)
recordCounts = LOF(1) / Len(tempRecord)


For i = 0 To 5

Get #1, , tempRecord
Next
Close #1
Exit Sub
line1:
DoEvents
Resume
...全文
162 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
wzxypq 2003-09-16
  • 打赏
  • 举报
回复
请问你是如何实验的,我用记事本或ultraEdit打开文本文件后,函数返回false;在程序中open 打开文本文件,函数返回true,

我想要的效果是不管用什么打开文本文件后,函数都返回true
guoyx 2003-09-16
  • 打赏
  • 举报
回复
iFileNum = FreeFile()这个函数是什么呀,看看msdn在贴咯,是返回空文件号!!!!!
stonegoldaustin 2003-09-16
  • 打赏
  • 举报
回复
To:wzxypq(wzxypq)

我已经实验过,当打开文本文件后,函数返回True.

另:此函数是检查文件是否被打开,并不是检查文件是否存在.
stonegoldaustin 2003-09-16
  • 打赏
  • 举报
回复
我是用ultreedit打开的.你放心,我发出的回复都是经过本机的调试的.
至于你说的情况,我就不太清楚了,但我这里是通过了的.另外附上我机器的配置
给你参考一下:
windows 2000 server + sp4
visual basic 6 + sp3
希望你能尽快解决问题,有了进展请通知我.

祝好运.
aalei 2003-09-15
  • 打赏
  • 举报
回复
同意楼上的写法!!!!!!
stonegoldaustin 2003-09-15
  • 打赏
  • 举报
回复
Function FileIsOpen(sFilePathName As String)
Dim iFileNum As Integer, iErrNum As Integer
On Error Resume Next
iFileNum = FreeFile()
Open sFilePathName For Input Lock Read As #iFileNum

Close iFileNum
iErrNum = Err.Number
Select Case iErrNum
Case 0
FileIsOpen = False
Case 70
FileIsOpen = True
Case Else
FileIsOpen = True
End Select
End Function

Private Sub Form_Load()
MsgBox FileIsOpen("c:\ccu.mdb")
End Sub
gzqg 2003-09-15
  • 打赏
  • 举报
回复
用API,具体函数和用法可以查一下以前的贴子.
wzxypq 2003-09-15
  • 打赏
  • 举报
回复
?
老规矩,先看本节效果图我们实现这个支付功能完全是借助小程序云开发实现的,不用搭建自己的服务器,不用买域名,不用备案域名,不用支持https。只需要一个简单的云函数,就可以轻松的实现微信小程序支付功能。核心代码就下面这些一,创建一个云开发小程序关于如何创建云开发小程序,这里我就不再做具体讲解。不知道怎么创建云开发小程序的同学,可以去翻看我之前的文章,或者看下我录制的视频:https://edu.csdn.net/course/play/9604/204528创建云开发小程序有几点注意的1,一定不要忘记在app.js里初始化云开发环境。2,创建完云函数后,一定要记得上传二, 创建支付的云函数1,创建云函数pay三,引入三方依赖tenpay我们这里引入三方依赖的目的,是创建我们支付时需要的一些参数。我们安装依赖是使用里npm 而npm必须安装node,关于如何安装node,我这里不做讲解,百度一下,网上一大堆。1,首先右键pay,然后选择在终端中打开2,我们使用npm来安装这个依赖。在命令行里执行 npm i tenpay安装完成后,我们的pay云函数会多出一个package.json 文件到这里我们的tenpay依赖就安装好了。四,编写云函数pay完整代码如下//云开发实现支付 const cloud = require('wx-server-sdk')cloud.init() //1,引入支付的三方依赖 const tenpay = require('tenpay'); //2,配置支付信息 const config = ;exports.main = async(event, context) => 一定要注意把appid,mchid,partnerKey换成你自己的。到这里我们获取小程序支付所需参数的云函数代码就编写完成了。不要忘记上传这个云函数。出现下图就代表上传成功五,写一个简单的页面,用来提交订单,调用pay云函数。这个页面很简单,1,自己随便编写一个订单号(这个订单号要大于6位)2,自己随便填写一个订单价(单位是分)3,点击按钮,调用pay云函数。获取支付所需参数。下图是官方支付api所需要的一些必须参数。下图是我们调用pay云函数获取的参数,和上图所需要的是不是一样。六,调用wx.requestPayment实现支付下图是官方的示例代码这里不在做具体讲解了,完整的可以看视频。实现效果1,调起支付键盘2,支付完成3,log日志,可以看出不同支付状态的回调上图是支付成功的回调,我们可以在支付成功回调时,改变订单支付状态。下图是支付失败的回调,下图是支付完成的状态。到这里我们就轻松的实现了微信小程序的支付功能了。是不是很简单啊,完整的讲解可以看视频。

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧