If e.File.EndsWith(".FoxEx") Then Dim ppath As String = FileSys.GetParentPath(e.File) Dim apath As String = ApplicationPath ' FileSys.GetParentPath(ppath) If FileSys.DirectoryExists(ppath & "\图标") Then FileSys.CopyDirectory(ppath & "\图标", APath & "\图标", True)
FileSys.DeleteDirectory(ppath & "\图标",2,2) End If End If
加好友 
发短信
Post By：2017/11/16 15:02:00 [只看该作者]
