蜗牛在前进

VB 编程中经常需要和文件系统打交道，比如获取硬盘的剩余空间、判断文件夹或文件是否存在等。在VB 推出文件系统对象(File System Object)以前，完成这些功能需要调用 Windows API 函数或者使用一些比较复杂的过程来实现，使编程复杂、可靠性差又容易出错。使用 Windows 提供的的文件系统对象，一切变得简单多了。

还是因为要做个VBA工具，才去查找着东西的，确实很不错。
下面这个程序我也测试过了，完全没问题。放心使用。

Private Sub CommandButton2_Click()
Dim fs, f, f1, fc, s
Set fs = CreateObject(“Scripting.FileSystemObject”)
Set f = fs.GetFolder(“E:\test”)
Set fc = f.SubFolders
For Each f1 In fc
s = s & f1.Name
s = s & vbCrLf
Next
MsgBox s
End Sub

要弄个VBA，刚学了OFFSET的用法，好记性不如烂笔头。觉得在学习的过程中养成好的记笔记的习惯，是非常重要的。现在就把它给记下来吧！
刚才测试成功了！！

Private Sub CommandButton1_Click()
Dim strDir As String
Dim strFileName As String
Dim A As Range

strDir = “E:\test”

strFileName = Dir(strDir & “\*.*”, vbNormal)
Set A = ActiveSheet.Range(“A1″)
Do While strFileName <> “”
A.Value = strDir & ” \ ” & strFileName
strFileName = Dir
Set A = A.Offset(1, 0)
Loop

End Sub

这几天一直在考虑我还有没有必要再公司呆下去，这样下去，我的前途基本废啦！！！技术一点都学不到，别人又不让你接触，我能做什么！！最重要的是工资不涨！！！！
我应该先学一点技术，然后出去，不管别的公司工资怎么样，只要能学技术！！要不就试着去争取去日本的机会。
反正不能这样下去了，否则死路一条！！决定啦，10月份左右行动吧！！！

一：
黑连接就是在网站上挂的链接，都是单向链接，权重比较高，对于网站的排名很有帮助。隐藏链接方式有一些技巧，都知道搜索引擎对javascript的识别不是很好，通过javascript来输出隐藏的DIV。这样的话，人工直接通过页面无法看到这些链接，而搜索引擎确认为这些链接是有效的。代码为：首先通过javascript写前面的DIV，设置display为none。然后输出一个table，table中包含了要挂的链接。最后再通过javascript输出后半部分div。从而达到成功挂上隐藏友情链接。现在这种黑站方式已经成为当前SEO最喜欢做的一种方式。增加权重 提升排名 提高PR
虽然搜索引擎网站不喜欢这种行为，但这种行为在站长中大面积存在。这是目前新站为了推广而广泛做的一件事情。友情链接买卖和交换类似，但一般有时限性质：1个月。
二：
简单的说，黑链一般是通过入侵别人的站点，在对方站长不知情的情况下给你的站点做的单向链接，一旦对方站长发现后就会撤销。而购买的一般性链接，我们称之为明链，价格比黑链要高，但稳定性比黑链要好，相对受你的控制比较强一点，同时购买的链接都有一个缺陷，如果你不续费就会丧失这些链接，一般你加一个外链对你的影响不大，但如果你一旦撤掉一个连接，特别是时间比较久的高权重链接，对你的影响是比较大的。

在具有中国特色的社会主义初级阶段，你会看到很多让人费解而又奇怪的人和事。

上海是个大都市，这里有非常有钱的富豪，也有我这样的“白领”，更有那些比我们还要困难的人群。
每天早上我去上班，在小区门口，在同一时刻同一地点，会遇到同样一个女孩子。让人费解的是，这个女孩每天骑着同一辆自行车，穿着同一件衣服。我就奇怪，为什么一个冬天，那个女孩就没换过外套呢？？
其实想想也就明白了，她勤俭节约吧！也许可以这样认为，她可能没有多余的钱去买（不舍得）更多的衣服。不过让人欣慰的事，她每天都是满面笑容地去上班（不知道是学徒还是做什么）。
在这个城市，还有这样一群人，她们一天换一件衣服，有时候一天可以换几套衣服。而有些人却完全相反，而我是后者，那个女孩也是后者，还有很多人都是后者。
我可以深刻地了解以前政治课上面的那句话–让一部分人先富，建设有中国特色的社会主义国家。

在网上搜索了下发现大部分都通过自己建立新页面来作为留言板，决定自己也用这方法

现在主题目录下复制single.php，将其重命名为guestbook.php。

打开guestbook.php

在<?php get_header() ?>前插入

<?php
/*
Template Name: guestbook
*/
?>

为了让页面好看点删除

<span>CATEGORY: <?php the_category(‘ ‘); ?></span> / <span><a href=”<?php trackback_url(); ?>/” title=”Trackback URL for your post” rel=”trackback”>Trackback URL</a></span>
保存。
然后在后台新建一个留言板页面，在模板中选择guestbook ，页面内容自己决定然后点发布，ok一个简洁的留言板就完成了。
最终效果我的留言板

   在工作中由于遇到筛选的问题，去请教前辈，今天又学到一招！实在是太好用了！！筛选的时候，如果量少的话，还好，如果数据到了几千或者几万。人工筛选起来就麻烦啦。

PivotTable and pivotchart report…..几分钟就搞定这一切。我只试了二维的数据筛选，多维的还没试过，下面是我的操作过程。

  打开EXCEL==》在选定对象==》Data==>PivotTable and pivotchart report，一步步下去就可以了。

二维例子：

最后结果如下：

很牛吧，注意：左上角的那个东西可以双击选择的。具体操作也不好说。而且数据可以拖动到不同的区域。

EXCEL让工作更轻松，哈哈！！！

现在都不知道去做什么？CODING，没学会，日语半桶水！！！种种种种，工资也就低啦！都不知道往哪走了！