[VB 프로그래밍] iRename, 다수의 파일 이름을 한번에 바꾸기 프로젝트 소스 파일
- 최초 등록일
- 2011.07.06
- 최종 저작일
- 2009.10
압축파일
- 가격 1,500원
![할인쿠폰받기](/images/v4/document/ico_det_coupon.gif)
소개글
수 천개 이상의 파일의 이름을 규칙에 따라 한번에 변경하기 위한 프로그램.
파일에 대한 접근 방법, 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
참고 자료
없음