VB 파일 접미사 수정

Private TxtName() As String' 은 txt 이름을 로드할 배열을 정의합니다.

문자열 형태의 퍼지 sPath

Subget txt name (byval spath as string, byval filter as string)' 지정된 폴더에서 지정된 접미사가 있는 파일 이름을 가져와 배열 txtname () 으로 로드하는 프로세스입니다. 여기서 spath 는 txt 가 기록되는 폴더 경로입니다

Dim sDir 을 문자열로 사용

Dim sFilter () 를 문자열로 사용

Dim lngFilterIndex 만큼 길다

Dim lngIndex As Long

SFilter = Split (필터, ",")

If Right(sPath,1) < & gt "그럼 파스 = 파스 & amp"\"

For lngfilterindex = lbound (sfilter) 에서 UBound(sFilter) 까지

SDir = Dir(sPath & amp；; SFilter(lngFilterIndex))

Do While Len(sDir)>0

Lngfiles = lngfiles+1

ReDim Preserve TxtName( 1 lngfiles 까지)

TxtName(lngfiles) = sDir

SDir = Dir

고리

그리고 나서

끝단 접합

개인 하위 명령 1_Click ()

차원 i%

SPath = App 입니다. 경로 및 경로. "\"

Gettext name(sPath, "* 를 호출합니다. Html) 을 참조하십시오

I = 1 끝 UBound(TxtName) 의 경우

이름 spath & amp txtname (I) as spath & 왼쪽 (txtname (I), InStr(TxtName(i), "")-1) & ".pdf"

그리고 나서

MsgBox "완료!"

끝단 접합