今天，我有一个应用程序，它删除了文件夹及其所有子文件夹和文件的只读属性。
我通过acaddoc在Civil3D中使用startapp命令访问此应用程序。lsp。
我问自己，一切都在运转，为什么我要重新发明轮子。
问题是我一直在涉猎VB。net在Autodesk产品之外的基础上进行了一段时间，我认为现在需要学习如何集成。
我相信下面的代码可以转换成DLL，并通过netload命令访问，但我迄今为止的尝试没有奏效，我正在寻求建议。。。。提前感谢您的帮助。
- Imports System.IO
- Module Module1
- Dim C3DFolder As String = "c:\C3D"
- Sub Main()
- REMReadOnly(C3DFolder)
- End Sub
- Sub REMReadOnly(ByVal folder As String)
- If (System.IO.Directory.Exists(C3DFolder)) Then
- For Each filename As String In My.Computer.FileSystem.GetFiles(folder)
- System.IO.File.SetAttributes(filename, IO.FileAttributes.Normal)
- Next
- For Each foldername As String In My.Computer.FileSystem.GetDirectories(folder)
- REMReadOnly(foldername)
- Next
- End If
- End Sub
- End Module
| 
置顶卡
