runtime error 75 Path/File access error大家帮我看看。。

2010-12-15 07:16:16 2.3k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Agent Runtime 正在归零：Session-as-Event-Log 重构 AI 应用基础设施 Agent runtime 不再是独立软件层，而是演变为类似操作系统内核的隐性基础设施——其核心价值正从执行效率转向状态可追溯性与生产可靠性。Session-as-Event-Log 架构通过将执行过程解耦为持久化事件日志、无状态执行器与隔离沙箱，从根本上解决传统 agent 因 context window 溢出导致的状态丢失、调试不可见与审计不可溯等顽疾。这一范式迁移使 runtime 成为云厂商默认能力，而真正的技术竞争已上移至 trace store 可观测性、governance 策略引擎与垂直领阅读详情

一个文件，在WINDOWS窗口下能正常的复制粘贴，然后替换掉他。
然后在VB里
Private Sub Command2_Click()
FileCopy "c:\windows\note.ns", "c:\nsa\note.ns"
End Sub
就出现
runtime error 75
Path/File access error
替换不了。闷。

...全文

AMD显卡Windows本地大模型部署实战指南本地大模型推理正从NVIDIA CUDA生态向多平台原生支持演进，DirectML作为Windows内置的AI硬件抽象层，为AMD Radeon显卡提供了无需Linux、不依赖CUDA的稳定加速路径。其核心原理是通过WDDM驱动对接GPU张量单元，结合ONNX Runtime实现FP16/INT4混合计算，在Radeon 780M、RX 6600等主流显卡上达成毫秒级延迟与高显存带宽利用率。该技术显著降低企业AI落地门槛，适用于政务、金融、制造等对数据不出域、系统可控性要求严苛的场景，尤其适合已批量部署AM 阅读详情

macneta

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

macneta 2010-12-15

打赏
举报

神了，非常非常的感谢，这问题从中午困扰我到现在了，饭都还没吃。。
肯定结贴哈。。

dbcontrols 2010-12-15

打赏
举报

好用了别不结贴

Private Type SHFILEOPSTRUCT

     hwnd As Long

     wFunc As Long

     pFrom As String

     pTo As String

     fFlags As Long

     fAnyOperationsAborted As Long

     hNameMappings As Long

     lpszProgressTitle As String

End Type

Private Const FOF_NOCONFIRMATION As Long = &H10

Private Const FOF_SILENT As Long = &H4

Private Const FO_COPY As Long = &H2

Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long



Private Sub Command1_Click()

    Dim FileOp As SHFILEOPSTRUCT

    FileOp.hwnd = Me.hwnd

    FileOp.wFunc = FO_COPY

    FileOp.pFrom = "c:\windows\note.ns"

    FileOp.pTo = "c:\nsa\note.ns"

    FileOp.fFlags = FOF_SILENT Or FOF_NOCONFIRMATION

    result = SHFileOperation(FileOp)

End Sub

macneta 2010-12-15

打赏
举报

能发个改好的给我嘛。
我自己改不好，试了试都不行。。
底子不好哎。

dbcontrols 2010-12-15

打赏
举报

Private Const FOF_NOCONFIRMATION = &H10

dbcontrols 2010-12-15

打赏
举报

你重新从API浏览器里把常数复制一遍不就完了么？
当年俺在98下做木马就是用的这个函数

macneta 2010-12-15

打赏
举报

我现在用于XP和SERVER2003下用的。

dbcontrols 2010-12-15

打赏
举报

Private Const FOF_NOCONFIRMATION = &H10
SP下变了

macneta 2010-12-15

打赏
举报

泪奔了，没办法了吗，因为如果这样子提示的话就和在WIN窗口下直接复制粘贴没什么差了。

dbcontrols 2010-12-15

打赏
举报

FOF_SILENT Or FOF_NOCONFIRMATION 就是这作用的，98下是不提示的，SP出来后这个代码没测试过

macneta 2010-12-15

打赏
举报

成功了，但他会提示是否替换掉XX文件。
能不能不要选择是，让他默认就替换掉。。
一点Command1_Click 就直接可以完成？
因为主要想用于后台运行。。
在CMD下执行此程序就替换。。

dbcontrols 2010-12-15

打赏
举报

Private Type SHFILEOPSTRUCT

     hwnd As Long

     wFunc As Long

     pFrom As String

     pTo As String

     fFlags As Long

     fAnyOperationsAborted As Long

     hNameMappings As Long

     lpszProgressTitle As String

End Type

Private Const FOF_CONFIRMMOUSE As Long = &H2

Private Const FOF_SILENT As Long = &H4

Private Const FO_COPY As Long = &H2

Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long



Private Sub Command1_Click()

    Dim FileOp As SHFILEOPSTRUCT

    FileOp.hwnd = Me.hwnd

    FileOp.wFunc = FO_COPY

    FileOp.pFrom = "c:\windows\note.ns"

    FileOp.pTo = "c:\nsa\note.ns"

    FileOp.fFlags = FOF_SILENT Or FOF_NOCONFIRMATION

    result = SHFileOperation(FileOp)

End Sub

macneta 2010-12-15

打赏
举报

上面段代码运行了后，没任何反应。。。
改成普通的文件也不能替换。。

dbcontrols 2010-12-15

打赏
举报

Private Type SHFILEOPSTRUCT

     hwnd As Long

     wFunc As Long

     pFrom As String

     pTo As String

     fFlags As Long

     fAnyOperationsAborted As Long

     hNameMappings As Long

     lpszProgressTitle As String

End Type

Private Const FOF_CONFIRMMOUSE As Long = &H2

Private Const FOF_SILENT As Long = &H4

Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long



Private Sub Command1_Click()

    Dim fileop As SHFILEOPSTRUCT

    fileop.fFlags = FOF_SILENT Or FOF_NOCONFIRMATION

    fileop.pFrom = "c:\windows\note.ns"

    fileop.pTo = "c:\nsa\note.ns"

    result = SHFileOperation(fileop)

End Sub

macneta 2010-12-15

打赏
举报

把占用的程序关了，
用你给的代码能替换掉，
但是能不能不要KILL掉那文件。
而直接替换掉它，WIN窗口下是开着那程序的时候，
还可以复制个文件直接替换了它。
我想要这样子的。

dbcontrols 2010-12-15

打赏
举报

Private Declare Function MoveFileEx Lib "kernel32" Alias "MoveFileExA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal dwFlags As Long) As Long

Private Const MOVEFILE_DELAY_UNTIL_REBOOT = &H4

Private Const MOVEFILE_REPLACE_EXISTING = &H1

'api声明

Private Sub Command1_Click()

    MoveFileEx "c:\nsa\note.ns", vbNullString, MOVEFILE_DELAY_UNTIL_REBOOT  '把原来文件kill

End Sub

dbcontrols 2010-12-15

打赏
举报

看看这个试试

macneta 2010-12-15

打赏
举报

删不了，改文件名提示正在使用，
但是用WIN窗口能替换掉它，
所以想弄个程序，能直接替换掉它。。
分区是NTFS的，和CACLS也没关系，文件夹的权限是所有用户都可以访问的。

dbcontrols 2010-12-15

打赏
举报

kill 是删除文件的命令，不是删除进程的
access error
是访问错误，可能有的文件占有着

macneta 2010-12-15

打赏
举报

c:\nsa\note.ns这个文件不是个进程，可能有被调用吧。
但是我在WIN窗口下能直接覆盖掉它，
换成VB就不行。
你给的也是一样的提示，谢谢你这么热情帮我回答了好几次。

dbcontrols 2010-12-15

打赏
举报

Private Sub Command2_Click()

if dir("c:\nsa\note.ns")<>"" then Kill "c:\nsa\note.ns"

FileCopy "c:\windows\note.ns", "c:\nsa\note.ns"

End Sub

runtime error 75 Path/File access error大家帮我看看。。

相关推荐