Notice
Recent Posts
Recent Comments
| 일 | 월 | 화 | 수 | 목 | 금 | 토 |
|---|---|---|---|---|---|---|
| 1 | 2 | 3 | 4 | |||
| 5 | 6 | 7 | 8 | 9 | 10 | 11 |
| 12 | 13 | 14 | 15 | 16 | 17 | 18 |
| 19 | 20 | 21 | 22 | 23 | 24 | 25 |
| 26 | 27 | 28 | 29 | 30 | 31 |
Tags
- VARIABLE
- instr
- array
- asp함수
- WML
- JavaScript
- sql업데이트
- injection
- update
- SPLIT
- tempDB
- XML
- 인젝션
- inner join
- javascript 한글입력체크
- jdbc driver
- 정규식
- 이미지가로길이
- 한글입력체크
- sql랭킹
- MSSQL보안
- 이미지세로길이
- join
- sql순위
- FileSystemObject
- ERD
- 자바기초
- xmldom
- wap
- VarType
Archives
- Today
- Total
3초기억력
ASP - FileSystemObject 로 Unique 파일명 생성하기 function 본문
336x280(권장), 300x250(권장), 250x250, 200x200 크기의 광고 코드만 넣을 수 있습니다.
Function GetUniqueName(byRef strFileName, DirectoryPath)
Dim strName, strExt
strName = Mid(strFileName, 1, InstrRev(strFileName, ".") - 1)
strExt = Mid(strFileName, InstrRev(strFileName, ".") + 1)
Dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Dim bExist : bExist = True
'우선 같은이름의 파일이 존재한다고 가정
Dim strFileWholePath : strFileWholePath = DirectoryPath & "\" & strName & "." & strExt
'저장할 파일의 완전한 이름(완전한 물리적인 경로) 구성
Dim countFileName : countFileName = 0
'파일이 존재할 경우, 이름 뒤에 붙일 숫자를 세팅함.
Do While bExist ' 우선 있다고 생각함.
If (fso.FileExists(strFileWholePath)) Then ' 같은 이름의 파일이 있을 때
countFileName = countFileName + 1 '파일명에 숫자를 붙인 새로운 파일 이름 생성
strFileName = strName & "(" & countFileName & ")." & strExt
strFileWholePath = DirectoryPath & "\" & strFileName
Else
bExist = False
End If
Loop
GetUniqueName = strFileWholePath
End Function
'플밍_ASP' 카테고리의 다른 글
| ASP - 이미지 URL경로의 BinaryWrite 하기 (1) | 2011.04.15 |
|---|---|
| ASP Function - 시작문자, 끝문자 사이의 문자열 추출하기 (0) | 2011.04.13 |
| ASP - 에러코드 출력하기, err.number, err (0) | 2011.04.06 |
| ASP - 정규식을 이용한 html 태그 제거 함수 (0) | 2011.03.29 |
| ASP - 확장자 추출 하기 (0) | 2011.03.29 |
Comments