恭喜,你发布的帖子
发布于 2023-09-21 10:50:36
10楼
Dim HMIRuntimePath,HMIRuntimePath01
HMIRuntimePath=HMIRuntime.ActiveProject.Path
HMIRuntimePath01=HMIRuntimePath&"\DataFile"
If Not fso.FolderExists(HMIRuntimePath01) Then
fso.CreateFolder (HMIRuntimePath01)
End If
HMIRuntime.Tags("system_HMIRuntimePath").Write HMIRuntimePath01
HMIRuntime.DataSet.Add "system_HMIRuntimePath",HMIRuntimePath01 '添加全局路径
不知道 复制 粘贴 的时候 怎么搞的
请填写推广理由:
分享
只看
楼主