尘埃半粒的专栏

原创 文件夹（system.）无法删除，打开时提示“引用了一个不可用的位置” 解决办法

前几天一个同事说家里电脑中的有些文件夹需要加密，希望我给他想想办法，于是乎网上下了N个文件夹加密的软件，在自己电脑上试验，最终试验出“宏杰文件夹加密”最好用，还免费，呵呵。但是试验过后，自己用来实验一个文件夹(文件夹后面有个点.。目录名后面有个点)无法删除如图1所示： 打开时提示“引用了一个不可用的位置”如图2所示： 网上搜索到： 办法1：在cmd命令提示下用“chkdsk

原创 Excel表格内容批量添加到多个word文档中

Dim docPath As String    Dim wordApp As New Word.Application    Dim wordDoc As New Word.Document        Dim xlApp As New Excel.Application    Dim xlBook As New Excel.Workbook    Dim xlSheet As New Exc

原创 8数码问题

04年写的8数码问题的代码： Dim OpenNode() As NodeDim CloseNode() As NodeDim favorNode As NodeDim tempNode As NodeDim showNode As NodeDim openTop As IntegerDim closeTop As IntegerDim startStr(2, 2) As Inte

原创 vba 操作Word-更新word内容

Dim docPath As String    Dim wordApp As New Word.Application    Dim wordDoc As New Word.Document    Private Sub CmdSelectDic_Click() Unload MeEnd SubPrivate Sub List_file(oPath As String)         

原创 时间函数大搜捕！

原创 给你一个人生哲学的故事

给你一个人生哲学的故事              给你一个故事，希望你能喜欢并给你带来不一样的精彩人生。　　从前，有一个脾气很坏的男孩.他的爸爸给了他一袋钉子，告诉他，每次发脾气或者跟人吵架的时候，就在院子的篱笆上钉一根。第一天，男孩钉了37根钉子。后面的几天他学会了控制自己的脾气，每天钉的钉子也逐渐减少了。他发现，控制自己的脾气，实际上比钉钉子要容易的多。终于有一天，他一根钉子都没有钉，他高兴的

原创 A*算法

昨天弄了一天，终于用A*算法实现了“8数码”问题，有些算法光看书，有时很难理解，但自己动手时才能更深入的了解，才能发现在看书时没有发现的问题。