利用這個工具可以輕鬆的比對兩個資料夾內容，詳情可參考重灌狂人的介紹。
原廠網址：http://www.cyberkiko.com/page/Directory-Digest.aspx
2010年4月27日 星期二
2010年4月22日 星期四
2010年4月19日 星期一
黑莓機black berry~~如何同步刪除於電子郵件伺服器的電子郵件？
如何同步刪除於電子郵件伺服器的電子郵件？
請進入Messages Options->Email Reconciliation中，將Delete On選項設定為Mailbox & Handheld或Prompt，設定後當您於BlackBerry手機刪除郵件時，可同步刪除伺服器上的電子郵件。
但多數電子郵件伺服器會將刪除的郵件 移入垃圾桶中，您可進入Messages Options->Email Reconciliation，按下軌跡輪執行Purge Deleted Items，即可將垃圾桶內的電子郵件清除。
請進入Messages Options->Email Reconciliation中，將Delete On選項設定為Mailbox & Handheld或Prompt，設定後當您於BlackBerry手機刪除郵件時，可同步刪除伺服器上的電子郵件。
但多數電子郵件伺服器會將刪除的郵件 移入垃圾桶中，您可進入Messages Options->Email Reconciliation，按下軌跡輪執行Purge Deleted Items，即可將垃圾桶內的電子郵件清除。
2010年4月16日 星期五
利用Excel VBA自動產生您所設定路徑向下之檔案名稱(file list)並自動加入超連結Hyper Link
想要自動產生一file list並自動加入HyperLink，只要mouse click就可以自動開啟該檔，如此之需求可能有很多方式來實作出來。
本例是使用Excel VBA的方式來做，以下是Code，感謝很多網友熱心PO文，才能讓我參考後完成這個小小功能，所以我也PO出來，請參考。
Dim iRow
Dim fso As Object
Sub ListFiles()
iRow = 11
Call ListMyFiles(Range("C7"), Range("C8"))
End Sub
Sub ListMyFiles(mySourcePath, IncludeSubfolders)
Set MyObject = New Scripting.FileSystemObject
Set mySource = MyObject.GetFolder(mySourcePath)
On Error Resume Next
For Each myFile In mySource.Files
iCol = 2
Cells(iRow, iCol).Value = myFile.Path
iCol = iCol + 1
Cells(iRow, iCol).Value = myFile.Name
ActiveSheet.Hyperlinks.Add Anchor:=Cells(iRow, iCol), Address:= _
myFile.Name
iCol = iCol + 1
Cells(iRow, iCol).Value = myFile.Size
iCol = iCol + 1
Cells(iRow, iCol).Value = myFile.DateLastModified
iRow = iRow + 1
Next
If IncludeSubfolders Then
For Each mySubFolder In mySource.SubFolders
Call ListMyFiles(mySubFolder.Path, True)
Next
End If
End Sub
下載Excel 檔
本例是使用Excel VBA的方式來做，以下是Code，感謝很多網友熱心PO文，才能讓我參考後完成這個小小功能，所以我也PO出來，請參考。
Dim iRow
Dim fso As Object
Sub ListFiles()
iRow = 11
Call ListMyFiles(Range("C7"), Range("C8"))
End Sub
Sub ListMyFiles(mySourcePath, IncludeSubfolders)
Set MyObject = New Scripting.FileSystemObject
Set mySource = MyObject.GetFolder(mySourcePath)
On Error Resume Next
For Each myFile In mySource.Files
iCol = 2
Cells(iRow, iCol).Value = myFile.Path
iCol = iCol + 1
Cells(iRow, iCol).Value = myFile.Name
ActiveSheet.Hyperlinks.Add Anchor:=Cells(iRow, iCol), Address:= _
myFile.Name
iCol = iCol + 1
Cells(iRow, iCol).Value = myFile.Size
iCol = iCol + 1
Cells(iRow, iCol).Value = myFile.DateLastModified
iRow = iRow + 1
Next
If IncludeSubfolders Then
For Each mySubFolder In mySource.SubFolders
Call ListMyFiles(mySubFolder.Path, True)
Next
End If
End Sub
下載Excel 檔
2010年4月6日 星期二
有關Word拼字及文法檢查會造成記憶體不足的問題
最近發現某一個Word文件，每當開啟後，工作列的「拼字及文法狀態」，是一本書及一支筆的圖示，會不停地翻動，正常的情況下，是不久就會停頓或消 失，但這份文件會一直翻動，到最後(過一陣子，視記憶體大小)，就會出現「記憶體不足，請立即儲存文件」、「記憶體或磁碟空間不足，無法執行文法檢查」 等錯誤訊息，怎麼關都關不掉，要進工作管理員強制結束工作，才行，每次開啟這個檔案，就會出現這種情形，其它的檔則不會，把選項中的自動文法檢查和自 動拼字檢查關掉，還是一樣，Word是Office XP版至2007都會如此。
我的經驗是~~~有某段文字會造成文法檢查一直檢查，最 後造成記憶體不足...而且與word版本無關，使用office 2007也會遇到。
解決方案:
只能土法鍊鋼，將文字一段 一段貼到新文件，找出是哪一段造成，再去縮小範圍，直到找出問題。
我遇到的狀況是和表格中之插入的符號字元有關，供大家參考。
我的經驗是~~~有某段文字會造成文法檢查一直檢查，最 後造成記憶體不足...而且與word版本無關，使用office 2007也會遇到。
解決方案:
只能土法鍊鋼，將文字一段 一段貼到新文件，找出是哪一段造成，再去縮小範圍，直到找出問題。
我遇到的狀況是和表格中之插入的符號字元有關，供大家參考。
2010年4月2日 星期五
Free~好用將螢幕動作錄製下來並可後製成動畫教學影片的軟體Wink
要抓螢幕畫面，用Print Screen按鍵就可抓。如果想把電腦操作畫面「錄影」下來，或者想把電腦操作步驟錄成一個教學影片或Flash檔的話~~~請服用這套免費軟體WINK。
- Input formats: Capture screenshots from your PC, or use images in BMP/JPG/PNG/TIFF/GIF formats.
- Output formats: Macromedia Flash, Standalone EXE, PDF, PostScript, HTML or any of the above image formats. Use Flash/html for the web, EXE for distributing to PC users and PDF for printable manuals.
訂閱：
文章 (Atom)