긴 파일 이름에서 짧은 파일 이름 가져오기 방법

기술 자료 번역 기술 자료 번역
기술 자료: 154822 - 이 문서가 적용되는 제품 보기.
이 문서가 보관되었습니다. "그대로" 제공되었으며, 업데이트가 되지 않을 것입니다.
모두 확대 | 모두 축소

이 페이지에서

요약

긴 파일 이름을 반환하려면 Dir() 함수를 사용할 수 있지만 경로 정보가 포함되지 않습니다. 해당 구성 요소 디렉터리에 주어진된 짧은 경로/파일 구문 분석 의해 Dir() 함수를 긴 경로/파일 빌드할 수 있습니다. 이 문서에서는 이 동작을 수행하는 방법을 보여 줍니다.

추가 정보

다음 코드 예제에서는 짧은 파일 이름을 긴 파일 이름을 그에 변환 및 또한 함수의 사용을 간단한 데모가 포함되어 함수가 들어 있습니다.

단계별 예제

  1. Visual Basic 시작하십시오. 기본적으로 Form1이 만들어집니다.
  2. 명령 단추를 Form1에 끌어다 놓습니다.
  3. 삽입 메뉴에서 모듈을 단일 코드 모듈을 프로젝트에 추가하려면 선택하십시오.
  4. Module1 위해 다음 코드를 추가하여:
       Public Function GetLongFilename _
         (ByVal sShortName As String) _
         As String
    
         Dim sLongName As String
         Dim sTemp As String
         Dim iSlashPos As Integer
    
         'Add \ to short name to prevent Instr from failing
         sShortName = sShortName & "\"
    
         'Start from 4 to ignore the "[Drive Letter]:\" characters
         iSlashPos = InStr(4, sShortName, "\")
    
         'Pull out each string between \ character for conversion
         While iSlashPos
           sTemp = Dir(Left$(sShortName, iSlashPos - 1), _
             vbNormal + vbHidden +    vbSystem + vbDirectory)
           If sTemp = "" Then
             'Error 52 - Bad File Name or Number
             GetLongFilename = ""
             Exit Function
           End If
           sLongName = sLongName & "\" & sTemp
           iSlashPos = InStr(iSlashPos + 1, sShortName, "\")
         Wend
    
         'Prefix with the drive letter
         GetLongFilename = Left$(sShortName, 2) & sLongName
    
       End Function
    
    					
  5. 다음 Command1_Click 이벤트 추가:
       Private Sub Command1_Click()
    
         'Assumes C:\Program Files\Common Files is a valid path
         Print GetLongFilename("C:\PROGRA~1\COMMON~1")
    
       End Sub
    
    					
  6. 시작하려면 F5 키를 눌러 실행 메뉴에서 시작을 선택하십시오.
  7. 명령 단추를 클릭하십시오.
제공한 경로가 올바른 경우 긴 것과 폼에 인쇄됩니다. 유효하지 않은 경우 아무 것도 인쇄되지 있으며 이 경우 Command1_Click 이벤트 코드 올바른 짧은 파일 이름을 제공해야 합니다.

속성

기술 자료: 154822 - 마지막 검토: 2014년 3월 1일 토요일 - 수정: 4.1
본 문서의 정보는 다음의 제품에 적용됩니다.
  • Microsoft Visual Basic 5.0 Learning Edition
  • Microsoft Visual Basic 6.0 Learning Edition
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft Visual Basic 5.0 Enterprise Edition
  • Microsoft Visual Basic Enterprise Edition for Windows 6.0
  • Microsoft Visual Basic 4.0 Standard Edition
  • Microsoft Visual Basic 4.0 Professional Edition
  • Microsoft Visual Basic 4.0 32-Bit Enterprise Edition
키워드:?
kbnosurvey kbarchive kbmt kbhowto KB154822 KbMtko
기계 번역된 문서
중요: 본 문서는 전문 번역가가 번역한 것이 아니라 Microsoft 기계 번역 소프트웨어로 번역한 것입니다. Microsoft는 번역가가 번역한 문서 및 기계 번역된 문서를 모두 제공하므로 Microsoft 기술 자료에 있는 모든 문서를 한글로 접할 수 있습니다. 그러나 기계 번역 문서가 항상 완벽한 것은 아닙니다. 따라서 기계 번역 문서에는 마치 외국인이 한국어로 말할 때 실수를 하는 것처럼 어휘, 구문 또는 문법에 오류가 있을 수 있습니다. Microsoft는 내용상의 오역 또는 Microsoft 고객이 이러한 오역을 사용함으로써 발생하는 부 정확성, 오류 또는 손해에 대해 책임을 지지 않습니다. Microsoft는 이러한 문제를 해결하기 위해 기계 번역 소프트웨어를 자주 업데이트하고 있습니다.

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com