[VB 프로그래밍] iRename, 다수의 파일 이름을 한번에 바꾸기 프로젝트 소스 파일

소개글

수 천개 이상의 파일의 이름을 규칙에 따라 한번에 변경하기 위한 프로그램.
파일에 대한 접근 방법, UI의 기본적인 구성 등을 배울 수 있는 소스.

VB6로 작성한 프로그램이므로, 실행이 안 되는 경우
포함된 VB6KO.DLL, COMDLG32.OCX를 c:\windows\sysyem32 (64bit는 system64)폴더에 복사해 넣어야 실행이 가능합니다.

컴파일 실행환경

VB

본문내용

Private Function OpenFolder()
Dim fd, Fs, f, f1
Dim pItem As ListItem
Dim dir As String

Path = ShowFolderBrowser()
dir = Path
Child_OpenOle.List1.AddItem dir

If SO.FolderExists(dir) = True Then
List1.ListItems.Clear

Set fd = SO.GetFolder(dir)
Set Fs = fd.Files

For Each f In Fs

If Not (f.Attributes And 2) = 2 And Not (f.Attributes And 4) = 4 And IsProtectedExt(f.name) = False Then
Set pItem = List1.ListItems.Add(, f.name, f.name, SelectImage(f.name), SelectImage(f.name))
pItem.SubItems(1) = Int(f.Size / 1024) & " KB"
pItem.SubItems(2) = f.DateCreated
pItem.SubItems(3) = f.Type
End If
Next

End If
List1.Refresh

StatusBar1.Panels(4).Visible = True
StatusBar1.Panels(4).Text = Path
End Function

압축파일 내 파일목록

ActionModule.bas
Child_Arrange.frm
Child_Classify.frm
Child_OpenOle.frm
child_Prog.frm
child_Progress.frm
Child_ProtectExt.frm
Child_ProtectExt.frx
Child_Rename.frm
Child_WordChange.frm
Child_WordChange.frx
frmAbout.frm
frmAbout.frx
frmBrowser.frm
frmBrowser.frx
iRename.exe
Main.frm
Main.frx
MoreModule.bas
Project1.PDM
Project1.vbp
Project1.vbw
SysModule.bas
이 폴더 안의 파일을 window폴더 system32폴더로 복사해 넣으세요/comdlg32.inf
이 폴더 안의 파일을 window폴더 system32폴더로 복사해 넣으세요/comdlg32.ocx
이 폴더 안의 파일을 window폴더 system32폴더로 복사해 넣으세요/VB6KO.DLL

전체 목록 보기

참고 자료

없음