每月彙整: 2009 年 6 月

VB 批量修改屬性

之前寫的USB防毒最近發現了一些小問題….
最開始是使用 cmd 的指令來刪除病毒
但是發現太吃資源
所以改用 VB內建的指令來刪除
但是刪除前必須解除刪除檔案的屬性
所以呢…
就使用 dir 來先取得檔案名稱
再用 SetFileAttributes 來修正檔案屬性
這樣雖然可以達成目的
但是最近發現了問題
dir會造成磁區為鎖定的狀態
也就是這個磁區有程式在使用所以無法『安全地移除』
只能強行達除…
所以咧…
從新思考不能使用 dir 來幫助
因此我想到VB內建的元件
它可以達成取得檔名的動作

就來分享一下心得囉 ^^ 哈哈

第1步：開啟VB程式

這雖然是廢話但很重要…

第2步：拉一個 filelistbox出來

第3步：修改 file1 的屬性 – 顯示隱藏

第4步：修改 file1 的屬性 – 顯示系統檔

第5步：新增一個API指令

————-
Private Declare Function SetFileAttributes Lib “kernel32” Alias “SetFileAttributesA” (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
————–
((這就不拍圖

第6步：設定目錄

File1 = “目錄的完整路徑”

第7步：設定要修改的檔案類型

File1.Pattern = “*.cmd”
這是代表所有的 cmd 檔案

第8步：增加個 for 迴圈

迴圈要顯示的資料
就是整個 file1 的資料

第9步：新增動作

既然裡面都會顯示資料
就可以利用那個資料來進行解除隱藏的指令

製作攜帶版的PowerPoint播放器

常常要在不同電腦上放PowerPoint 嗎？
講師應該是最需要的
需要放PowerPoint 來看時
發現那台電腦竟然沒有PowerPoint 的程式怎麼半呢？
就這樣放棄了嗎？

其實 PowerPoint 就有內建的攜帶型播放器
所以不必擔心電腦有沒有PowerPoint
接下來簡單的介紹一下播放器的生產流程

第1步：開啟PowerPoint 軟體

要生產當然要找台有PowerPoint 的電腦唷 ^^

第2步：點選封裝成光碟

在檔案裡面
還不知道就請看圖片吧 ^^

第3步：點選複製到資料夾

CD名稱可以不用去理他
直接點選複製到資料夾

第4步：填寫資料

資料夾名稱建議打上 免安裝PowerPoint播放器
位置就自己選吧

第5步：開啟剛剛選擇的位置

會發現裡面有產生一個剛剛打的名稱

第6步：可以刪除的檔案有

因為是隨身版所以一些CD用的東西可以不用留著
AUTORUN.INF
play.bat
playlist.txt
*.ppt ((是剛剛開啟的簡報這個可以刪除沒關係唷

第7步：開啟 pptview.exe

點選接受

第8步：選擇要播放的簡報檔案

第9步：之後就會播放…

這個只能拿來播放用
不能編輯唷 ^^

第10步：2007的撥放器！？

一樣也是用同樣的方法製作出來
※免安裝版的好像沒有製作成光碟的選項唷

批次檔案命名工具 UltraRename

有時候要有規律的大量命名
但是數量很多就會很麻煩
一個一個慢慢弄會累死的…
UltraRename 是一套免費且有效率的命名工具唷

第1步：下載

載點：這裡
解壓縮密碼：skybox.pp.ru

第2步：開啟畫面…

第3步：選擇資料夾

當然是你要命名的檔案資料夾囉 ^^

第4步：選擇要改名的檔案

第5步：開始做編輯

在右邊可以選擇唷

第6步：按下執行功能

第7步：確認新的名稱

第8步：開始更名

確認無誤後按下開始更名唷 ^^

第9步：檢查

更名成功 ^^

[正式版] USB防毒 1.2

經由上次的USB防毒
主要的問題太吃記憶體
這次修改了
不再以CMD來刪除檔案
因為CMD刪除檔案
一個槽會有一個CMD
一個CMD有2500K左右
這樣會吃很多記憶體
所以呢
我改成直接用VB的刪除指令來運作
這樣可以減少很多記憶體
這次還增加了開擠啟動這個選項
所以不用擔心程式忘記開而導致中毒的後果

第1步：下載

載點：這裡
解壓縮密碼：skybox.pp.ru

第2步：畫面…