备保存的时候哟好家伙发现该文件权限设置为只读readonly了无法保存心情突然没那么美丽了。

其实很简单解决这个问题如下所示

右键选择“属性”→取消“只读”的勾选那么example.docx文件就取消只读可以正常保存了。

另外还有什么压缩传输法文件另存法微信降级法等等虽然可以解决问题但是也太不方便了。

后面排查发现原来是最近微信更新后出现的问题——微信传输的文件均被设置成了只读readonly权限给出的说法是为了防止文件信息在网络传输过程中被篡改。

但是也太不方便了吧作为一名技术不能忍于是乎搞出一个小程序chmod.exe将这个exe放在微信下载文件夹下面运行就可以把整个文件夹中所有的文件取消只读了看下效果吧

双击运行效果如下再次双击运行效果如下

VB6中的VBA库提供了一个方法SetAttr()可以设置文件的读写等等权限。

VBA.SetAttr(PathName

VbFileAttribute)PathName必要参数。

需要修改只读属性的文件路径或目录路径Attributes必要参数。

常数或数值表达式其总和用来表示文件的属性

attributes

常数值描述vbNormal0常规缺省值可读可写vbReadOnly1只读vbHidden2隐藏vbSystem4系统文件vbArchive32上次备份以后文件已经改变

设置只读示例

VB6中的VBA库提供了一个方法GetAttr()可以设置文件的读写等等权限。

VBA.GetAttr(PathName

VbFileAttributePathName必要参数。

需要修改只读属性的文件路径或、或文件夹的属性值总和

GetAttr

常数值(十进制)值(二进制)描述vbNormal00常规vbReadOnly11只读vbHidden210隐藏vbSystem4100系统文件vbDirectory1610000目录或文件夹vbArchive3210000上次备份以后文件已经改变vbalias641000000指定的文件名是别名

特别说明

运算符与逐位比较。

如果所得的结果不为零则表示设置了这个属性值即

result

】知识点如果读者感兴趣那么到时候再出一期详细讲讲吧这里展开讲解的话可以话题就跑偏了。

上述判断文件权限大部分习惯高级语言的小伙伴们都不太适应吧所以我将其封装了下健康绿色可以放心食用如下所示

Private

------数据格式说明------CheckFileReadOnly

FalseIf

现在我们实现的是一个文件的权限设置如果就这么去取消只读权限那还不如直接右键属性直接取消来的快所以需要用到文件夹和文件》。

Private

------数据格式说明------Err.ClearVBA.SetAttr

sFilePath,

FalseErr.ClearElseCancelFileReadOnly

TrueEnd

GetAllDir(sFindPathName)接着我们遍历目录clnDir来取消文件只读

For

CheckFileReadOnly(sCurFilePath)

ThensCurFileName

CancelFileReadOnly(sCurFilePath)

ThenclnOK.Add

i最后将遍历过程封装成函数即批量取消只读权限BatchCancelFileReadOnly

Private

CheckFileReadOnly(sCurFilePath)

ThensCurFileName

CancelFileReadOnly(sCurFilePath)

ThenclnOK.Add

TrueElseBatchCancelFileReadOnly

FalseEnd

Sub顺便提一嘴还可以做一个计时器定时执行取消只读权限或者监听文件变化再执行批量取消这样看上去就会更加便捷了这个实现就留给聪明的你啦^

一、下载地址

免费白嫖https://download.csdn.net/download/qq_35844043/87548631积分下载https://download.csdn.net/download/qq_35844043/87548735

二、源码分享

GitCode地址https://gitcode.net/qq_35844043/vb6/-/tree/master/

版权声明本文为博主原创文章如需转载请给出

原文链接https://blog.csdn.net/qq_35844043/article/details/129420874