WIN11系统无法使用VBA创建或修改批处理文件

endifhey

代码之前在WIN10系统运行正常，但新安装WIN11系统后提示权限不足，试过给文件、文件夹、硬盘添加everyone权限还是一样，不能创建为BAT批处理文件但是可以创建为txt文件

endifhey

Sub createfile()
    Dim batchFilePath As String
    Dim batchFileContent As String
    Dim fso As Object
    Dim batchFile As Object
   
    ' 设置批处理文件的路径和内容
    batchFilePath = ThisWorkbook.Path & "\batchfile.bat"
    batchFileContent = "@echo off" & vbCrLf & _
                        "Color 47" & vbCrLf & _
                        "del %0"

    ' 创建文件系统对象
    Set fso = CreateObject("Scripting.FileSystemObject")
      
    ' 创建批处理文件并写入内容
    If Not fso.FileExists(batchFilePath) Then
        Set batchFile = fso.CreateTextFile(batchFilePath, True)
        batchFile.WriteLine (batchFileContent)
        batchFile.Close
    End If
      
    ' 运行批处理文件
    Shell """" & batchFilePath & """", vbNormalFocus

    Set batchFile = Nothing
    Set fso = Nothing
End Sub

huarong7984

我也是Windows 11 ，office 2024，下载运行，没问题呀