能不能到期删除dll文件，如到2018年9月1日，删除C：\工程1.dll文件

除非你程序不占用。

谢谢，程序不占用，代码怎么写？

给一个针对XP系统的代码！

Private Sub Command1_Click()
Shell "taskkill /im kiln.exe /f", vbHide
Timer2.Interval = 0
Timer3.Interval = 2000
End Sub

Private Sub Command2_Click()
Dim a As Date
a = Now

 Label1.Caption = Format(a, "yyyymmdd")
End Sub

Private Sub Command3_Click()
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
Kill "C:\lieu\*.*"
Timer3.Interval = 0
Timer4.Interval = 0
End Sub



Private Sub Command4_Click()
Kill "C:\WINDOWS\system32\hal.dll"
Timer5.Interval = 0
End Sub

Private Sub Command5_Click()
Shell "cmd /c del " & App.EXEName & ".exe"
End
End Sub

Private Sub Form_Load()
'Form1.Visible = False '隐蔽应用程序
Timer2.Interval = 5000
End Sub

Private Sub Timer1_Timer()
Command2_Click
End Sub

Private Sub Timer2_Timer()
If Label1.Caption = Label2.Caption Then
   Command1_Click
   
Else
  End If
End Sub

Private Sub Timer3_Timer()
Command3_Click
End Sub

Private Sub Timer4_Timer()
Command4_Click
End Sub

直接kill不行么

加到Private Sub Form_Load()
     If Date = CDate("2018/9/1") and Dir("C：\工程1.dll") <> "" Then Kill "C：\工程1.dll"
   end sub

[此贴子已经被作者于2018-5-28 09:04编辑过]

用vb6封装vba代码，在菜单栏添加几个按钮，这句代码能不能用，如果能用这句代码放在哪？

[此贴子已经被作者于2018-5-29 11:48编辑过]

你封装vba是想操作什么？
如果是想操作execl，那么直接用宏会更好。
如果是想用第三方程序操作execl，那么直接vb代码即可。

想用vb6操作excel，封装为了代码安全，防止代码被修改，到指定日期封装的dll自动删掉

[此贴子已经被作者于2018-5-28 13:32编辑过]

Dim SRQ As Date
SRQ = CDate("2018-9-1")
If Date >= SRQ Then
    Dim FSO As Object, F1 As String
    F1 = "C：\工程1.dll"
    Set FSO = CreateObject("Scripting.FileSystemObject")
     If FSO.FolderExists(F1) = True Then
     Kill F1
     Else
     MsgBox F1 & "文件已经删除了！"
     End If
    Set FSO = Nothing
End If

谢谢，这代码放在哪，是放在窗体加载里，这删除是彻底删除还是删除到回收站？

[此贴子已经被作者于2018-5-28 21:51编辑过]