|
 ¤ÃÒ¹Ö§ä´éä»·Õè¾Ñ¹¸ì·Ô¾Âì à¾×èÍàÍÒÎÒÃì´´Ôʵìä»à»ÅÕè¹ ¡çàÅÂàÅÕºæà¤ÕÂ§æ ¶ÒÁ·Ò§ªèÒ§à¢Ò´Ù
¼Á : "àÍÐ ¹éͧà´ÕëÂǹÕé·ÓäÁÎÒÃì´´ÔʵìÁѹ¾Ñ§àÃçǨѧàÅÂÅèÐ"
ªèÒ§ : "ÍëÍ ... ¾Õè¡éÍ´Ù·ÕèÃҤҢͧÁѹ«Ô"
¼Á : ÍÖé§ ... àÍ͵ÙäÁè¹èÒ¶ÒÁàÅ (¤Ô´ã¹ã¨ ... Áѹ¹èÒࢡ¡ÐâËÅ¡µÑÇàͧ¹Ô)
»Ñ¨¨ØºÑ¹¹Õéà·¤â¹âÅÂÕ·Ñé§ÎÒÃì´áÇÃì áÅÐ «Í¿·ìáÇÃì 件֧ä˹¡Ñ¹áÅéÇ áµè¼Áàͧ¡çÂѧªÍº«èÍÁá«Á´Ôʵì´éÇÂâ»Ãá¡ÃÁâºÃÒ³æÍÂèÒ§ Norton Utilities Version 3 àËÁ×͹à´ÔÁ áµè¤ÃÒ¹Õé¡ç¶Ö§¤ÃÒǫǨ¹ä´é àÁ×èÍâ»Ãá¡ÃÁä´éµÃǨÊͺÎÒÃì´´Ôʵì·Õèà»ç¹ WinXp ·Õè¼Áà¡çº¢éÍÁÙÅÍÂÙè (ÍéÍ ¼ÁºÙµ¨Ò¡ Windows 98) »ÃÒ¡¯ÇèÒª×èÍä¿Åì áÅÐ ¹ÒÁÊ¡ØÅ ºÒ§µÑÇ (·ÕèàÂÍÐÁÒ¡) ¡ÅÒÂà»ç¹µÑÇãËè (Upper Case) ¡Ñ¹à©ÂàÅ ´ÙáÅéÇÁѹ¤Ñ¹à¤×ͧÊÒµҾԡŠáµè¡ç¨¹»ÑÒ (ẺäÁèÃÙé¨ÃÔ§æ) äÁèÃÙé¨ÐËÒ¤ÓÊÑè§ ËÃ×Í â»Ãá¡ÃÁÍÐä÷ÕèÁѹ¨Ðá»Å§¡ÅѺä»à»ç¹µÑÇàÅç¡àËÁ×͹à´ÔÁä´é ÃÓ¤ÒÊÒµҵÑÇàͧ¨ÃÔ§æ
ÍÂèÒ¡ÃйÑé¹àÅÂàÁ×è͵ÑÇàÃÒà¢Õ¹â»Ãá¡ÃÁà»ç¹ ¨ÐªéÒÍÂÙèä à»Ô´â»Ãá¡ÃÁ Visual Basic ¢Öé¹ÁÒ áÅéÇ¡çÅÒ¡ Common Control ¾×é¹°Ò¹à¢éÒÁÒ 4 Íѹ »ÃСͺ´éÇÂ
DriveListBox - Drive1
DirListBox - Dir1
FileListBox - File1
áÅÐ CommandButton ÍÕ¡ 3 µÑÇ à»ç¹»ØèÁäÇéÊÑè§à»ÅÕ蹪×èÍ Folder ¡Ð»ØèÁà»ÅÕ蹪×èÍä¿Åì ãËé¡ÅÒÂà»ç¹µÑÇàÅç¡ áÅÐ »ØèÁ¨º¡Ò÷ӧҹ (Íѹ¹ÕéäÁèÃÙé¨ÐÁÒ·ÓäÁ ... à»Å×ͧ)
ẺÇèÒÍ͡Ẻ¤è͹¢éÒ§¡Öè§Íѵâ¹Á×Í à¾×èÍàÅ×Í¡ÃÒ¡ÒÃàÍÒ¹èФÃѺ ÍÔÍÔÍÔ ¡ç¤×͵éͧàÅ×Í¡ Folder ·Õèµéͧ¡ÒÃÁÒ¡è͹áÅéÇ¡çÊÑè§â»Ãá¡ÃÁãËé Loop àÍÒ·Ø¡æä¿Åì (ËÃ×Í àÅ×Í¡à¾Õ§ä¿Åìæà´ÕÂÇ¡çä´é) à¾×èÍà»ÅÕ蹪×èÍÁѹàÍÒ¤ÃѺ
 Í͡Ẻ¿ÍÃìÁáÊ´§¼Å
 ´Ùª×èÍä¿Åì ¡Ð ¹ÒÁÊ¡ØÅáÅéÇÁѹÍبҴÊÒµҫÐàËÅ×Íà¡Ô¹
 ãËé¤ÅÔê¡àÅ×Í¡¡è͹ àÁ×è͵éͧ¡ÒÃà»ÅÕ蹪×èÍà¾Õ§ä¿Åìà´ÕÂÇ ËÒ¡äÁèàÅ×Í¡áÊ´§ÇèÒµéͧ¡ÒÃà»ÅÕè¹·Ñé§â¿Åà´ÍÃì
ÍéÍ ... ËÒ¡·èÒ¹ Run â»Ãá¡ÃÁäÁèä´é ¡ÃسҴÒǹìâËÅ´ Visual Basic 6.0 SP5: Run-Time Redistribution Pack ÁÒµÔ´µÑ駡è͹¹èФÃѺ
ÅͧÁÒ´Ùâ¤é´àÅç¡æ ¡Ñ¹¤ÃѺ
Option Explicit
Private Sub cmdExit_Click()
End
End Sub
Private Sub cmdUpdateFile_Click()
If File1.ListCount > 0 And File1.ListIndex < 0 Then ' ·´ÊͺÇèÒÁÕÃÒª×èÍä¿ÅìËÃ×ÍäÁè áÅÐ µÃǨÊͺÇèÒäÁèÁÕ¡Òá´¤ÅÔê¡àÅ×Í¡ã¹ FileListBox ¹Ñ蹤×͵éͧ¡ÒÃà»ÅÕ蹪×èÍ·Ñé§â¿Åà´ÍÃì
Call ChangeFile2Lower(Dir1.Path) ' ä»â»Ãá¡ÃÁÂèÍ·ÕèãËéà»ÅÕ蹪×èÍä¿Åì â´ÂÊ觤èÒµÓá˹觻Ѩ¨ØºÑ¹ä»´éÇÂ
ElseIf Len(Trim(File1.FileName)) <> 0 Then
Call ChangeSingleFile2Lower(Dir1.Path, File1.FileName) ' ä»â»Ãá¡ÃÁÂèÍ·ÕèãËéà»ÅÕ蹪×èÍä¿Åìæà´ÕÂÇ â´ÂÊ觤èÒµÓá˹觻Ѩ¨ØºÑ¹ áÅÐ ª×èÍä¿Åì·Õèµéͧ¡ÒÃä»´éÇÂ
End If
File1.FileName = Dir1.List(Dir1.ListIndex)
File1.Refresh
End Sub
Private Sub cmdUpdateFolder_Click()
Call ChangeFolder2Lower (Dir1.Path) ' ä»â»Ãá¡ÃÁÂèÍ·ÕèãËéà»ÅÕ蹪×èÍâ¿Åà´ÍÃì â´ÂÊ觤èÒµÓá˹觻Ѩ¨ØºÑ¹ä»´éÇÂ
Dir1.Path = Dir1.List(Dir1.ListIndex - 1)
Dir1.Refresh
End Sub
Private Sub Dir1_Change()
File1.FileName = Dir1.List(Dir1.ListIndex)
txtPath.Text = Dir1.List(Dir1.ListIndex)
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
File1.FileName = Dir1.List(Dir1.ListIndex)
End Sub
Private Sub Form_Load()
txtPath.Text = Dir1.Path
File1.FileName = Dir1.List(Dir1.ListIndex)
lblFile(1).Caption = "¤ÅÔê¡àÅ×Í¡ä¿ÅìàÁ×èÍ µéͧ¡ÒÃà»ÅÕ蹪×èÍà¾Õ§ ä¿Åìà´ÕÂÇ"
End Sub
Sub ChangeFolder2Lower(FolderSpec)
Dim OldFolder$, NewFolder$
OldFolder = FolderSpec ' ª×èÍâ¿Åà´ÍÃìà´ÔÁ
NewFolder = LCase(FolderSpec) ' ª×èÍâ¿Åà´ÍÃìãËÁè ´éÇ¿ѧ¤ìªÑè¹ Lower Case à¾×èÍá»Å§µÑÇÍÑ¡ÉÃà»ç¹µÑÇàÅç¡
Name OldFolder As NewFolder
End Sub
Sub ChangeSingleFile2Lower(FolderSpec, fName) ' ÃѺ¤èÒµÓá˹è§â¿Åà´ÍÃì áÅÐ ª×èÍä¿Åì
Dim OldFileName$, NewFileName$
OldFileName = FolderSpec & "\" & fName
NewFileName = FolderSpec & "\" & LCase(fName)
Name OldFileName As NewFileName
End Sub
Sub ChangeFile2Lower(FolderSpec)
Dim fs, f, f1, fc
Dim OldFileName$, NewFileName$
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(FolderSpec)
Set fc = f.Files
For Each f1 In fc ' ·Ó§Ò¹ä»àÃ×èÍÂæ ¨¹¡ÇèÒ¨ÐËÁ´ÃÒª×èÍä¿Åì·ÕèÁÕÍÂÙèã¹â¿Åà´ÍÃì¹Ñé¹æ
OldFileName = FolderSpec & "\" & f1.Name ' ª×èÍä¿Åìà´ÔÁ
NewFileName = FolderSpec & "\" & LCase(f1.Name) ' ª×èÍä¿ÅìãËÁè ´éÇ¿ѧ¤ìªÑè¹ Lower Case à¾×èÍá»Å§µÑÇÍÑ¡ÉÃà»ç¹µÑÇàÅç¡
Name OldFileName As NewFileName ' ãªé¤ÓÊÑè§ Name à»ÅÕ蹪×èÍà¡èÒà»ç¹ª×èÍãËÁè
Next
End Sub
áÎÐææ à»ç¹ä§¤ÃѺâ»Ãá¡ÃÁàÅç¡æ (áµèäÁè¡ÃШ͡¹èÐ ... ¢×¹´Ù¶Ù¡áÁé¡ÃзÑ觧ҹµÑÇàͧ ¡çÍÂèÒËÇѧÇèÒ¤¹Í×è¹à¢Ò¨ÐÁÒª×蹪Á§Ò¹¢Í§àÃÒàÅéÂÂÂÂ) ÍÂèÒ§¹Õè¡çÁÕ»ÃÐ⪹ìä´éàËÁ×͹¡Ñ¹ ËÒ¡·èÒ¹ã´ÃÙéÇÔ¸Õ¡Ò÷Õè¨ÐãËéÁѹ§èÒ¡ÇèÒ¹Õé â»Ã´¶èÒ·ʹ ºÍ¡µèÍæ ¡Ñ¹´éǹèФÃѺ ÍÂèÒà¡çº§ÓäÇéà¾Õ§ÅӾѧàŤÃѺ
| 
