工作原因,需要临时创建bat文件,之前没问题,这两天发现一直报运行时错误75,路径/文件访问错误,没有权限,不知道是不是更新wps后的原因?甚至直接尝试将一个bat文件使用Name语句重命名为txt文件,没问题,倒过来,改成bat也报错,请大神们看看是什么原因?- Dim tempBatchPath As String ' 声明一个字符串变量tempBatchPath,用于存储临时批处理文件的路径
- tempBatchPath = "d:\temp_call_script.bat" ' 临时批处理文件的路径,并赋值给tempBatchPath变量
- ' 创建临时批处理文件
- Dim fileNum As Integer ' 声明一个整数变量fileNum,用于获取一个未使用的文件号
- fileNum = FreeFile() ' 调用FreeFile函数获取一个未使用的文件号,并赋值给fileNum变量
- Open tempBatchPath For Output As fileNum ' 打开tempBatchPath指定的文件,用于写入,并指定文件号为fileNum
- Print #fileNum, "@echo off"
- Print #fileNum, ExtractDriveLetter(macroPath) '向临时批处理文件写入盘符,确保盘符与cd的路径一致
- Print #fileNum, "cd " & macroPath ' 向临时批处理文件写入命令"cd",后面跟上macroPath变量表示的路径,用于改变工作目录到VBA宏所在目录
- Print #fileNum, "call """ & batchPath & """" ' 向临时批处理文件写入命令"call",后面跟上batchPath变量表示的批处理脚本路径,用于调用该脚本
- Close fileNum ' 关闭文件号为fileNum的文件
复制代码
|