ªÀº ÆÄÀÏ À̸§¿¡¼­ ±ä ÆÄÀÏ À̸§ °¡Á®¿À±â ¹æ¹ý

±â¼ú ÀÚ·á: 175512 - ÀÌ ¹®¼­°¡ Àû¿ëµÇ´Â Á¦Ç° º¸±â.
¸ðµÎ È®´ë | ¸ðµÎ Ãà¼Ò

ÀÌ ÆäÀÌÁö¿¡¼­

¿ä¾à

ƯÁ¤ »óȲ¿¡¼­ ÇÊ¿äÇÑ ÂªÀº ÆÄÀÏ À̸§ÀÌ ±ä ÆÄÀÏ À̸§ÀÌ ÀÖ´Â ÆÄÀÏ¿¡ ÇØ´çÇÏ´Â °¡Á®¿Ã ¼ö ÀÖ½À´Ï´Ù. ´ÙÀ½Àº ±ä ÆÄÀÏ À̸§À» °¡Áø ÆÄÀÏÀ» ¼±ÅÃÇÑ ´ÙÀ½ ªÀº GetShortPathName API ÇÔ¼ö È£ÃâÀ» »ç¿ëÇÏ¿© Filename »ç¿ëÀÚÀÇ ¹ÝȯÇÒ ¼ö ÀÖ½À´Ï´Ù.

Ãß°¡ Á¤º¸

´ÙÀ½ ÄÚµå ¿¹Á¦¿¡¼­´Â ¶ÇÇÑ ÇÔ¼öÀÇ »ç¿ëÀ» °£´ÜÇÑ µ¥¸ð°¡ Æ÷ÇÔµÇ¾î ±ä ÆÄÀÏ À̸§À» ªÀº ÆÄÀÏ À̸§ ±×¿¡ º¯È¯ÇÏ´Â ÇÔ¼ö¸¦ Æ÷ÇÔÇÕ´Ï´Ù.

´Ü°èº° ¿¹Á¦

  1. Visual Basic¿¡¼­ Ç¥ÁØ EXE ÇÁ·ÎÁ§Æ®¸¦ »õ·Î ¸¸µì´Ï´Ù. ±âº»ÀûÀ¸·Î Form1ÀÌ ¸¸µé¾îÁý´Ï´Ù.
  2. Form1¿¡ ÀÖ´Â CommandButtonÀ» ³õ½À´Ï´Ù.
  3. °ø¿ë ´ëÈ­ »óÀÚ ÄÁÆ®·ÑÀ» Æû¿¡ ¹èÄ¡ÇϽʽÿÀ.
  4. »ðÀÔ ¸Þ´º¿¡¼­ ¸ðµâ ´ÜÀÏ ÄÚµå ¸ðµâÀ» ÇÁ·ÎÁ§Æ®¿¡ Ãß°¡ÇÏ·Á¸é ¼±ÅÃÇϽʽÿÀ.
  5. Module1 À§ÇØ ´ÙÀ½ Äڵ带 Ãß°¡ÇÏ¿©:
       Declare Function GetShortPathName Lib "kernel32" _
          Alias "GetShortPathNameA" (ByVal lpszLongPath As String, _
          ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
    
       Public Function GetShortName(ByVal sLongFileName As String) As String
           Dim lRetVal As Long, sShortPathName As String, iLen As Integer
           'Set up buffer area for API function call return
           sShortPathName = Space(255)
           iLen = Len(sShortPathName)
    
           'Call the function
           lRetVal = GetShortPathName(sLongFileName, sShortPathName, iLen)
           'Strip away unwanted characters.
           GetShortName = Left(sShortPathName, lRetVal)
       End Function
    					
  6. Form1¿¡ ´ÙÀ½ Äڵ带 Ãß°¡ÇÕ´Ï´Ù:
       Private Sub Command1_Click()
         Dim msg As String
         CommonDialog1.FileName = "*.*"
         CommonDialog1.ShowOpen
         msg = "Long File Name: " & CommonDialog1.filename & vbCrLf
         msg = msg & "Short File Name: " & GetShortName(CommonDialog1.filename)
         MsgBox msg
       End Sub
    					
  7. F5 ۸¦ ´­·¯ ÇÁ·ÎÁ§Æ®¸¦ ½ÇÇàÇϽʽÿÀ. ¿­±â ´ëÈ­ »óÀÚ¸¦ Ç¥½ÃÇÒ ¼ö ÀÖ´Â ¸í·É ´ÜÃ߸¦ Ŭ¸¯ÇϽʽÿÀ. ¿­±â ´ëÈ­ »óÀÚ¸¦ Ž»öÇÏ°í ±ä ÆÄÀÏ À̸§À» °¡Áø ÆÄÀÏÀ» ã½À´Ï´Ù. ÆÄÀÏÀ» ¼±ÅÃÇϰí È®ÀÎÀ» Ŭ¸¯ÇϽʽÿÀ.
  8. ±ä ÆÄÀÏ À̸§À» ªÀº ÆÄÀÏ À̸§°ú ÇÔ²² ¸Þ½ÃÁö »óÀÚ¸¦ Ç¥½ÃÇÕ´Ï´Ù.

ÂüÁ¶

ÀÚ¼¼ÇÑ ³»¿ëÀº Microsoft ±â¼ú ÀÚ·áÀÇ ´ÙÀ½ ¹®¼­¸¦ ÂüÁ¶ÇϽʽÿÀ.
154822±ä ÆÄÀÏ À̸§¿¡¼­ ªÀº ÆÄÀÏ À̸§ °¡Á®¿À±â ¹æ¹ý

¼Ó¼º

±â¼ú ÀÚ·á: 175512 - ¸¶Áö¸· °ËÅä: 2005³â 3¿ù 11ÀÏ ±Ý¿äÀÏ - ¼öÁ¤: 3.2
º» ¹®¼­ÀÇ Á¤º¸´Â ´ÙÀ½ÀÇ Á¦Ç°¿¡ Àû¿ëµË´Ï´Ù.
  • Microsoft Visual Basic Control Creation Edition
  • Microsoft Visual Basic 5.0 Learning Edition
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 5.0 Enterprise Edition
  • Microsoft Visual Basic 4.0 Standard Edition
  • Microsoft Visual Basic 4.0 Professional Edition
  • Microsoft Visual Basic 4.0 32-Bit Enterprise Edition
  • Microsoft Visual Basic 6.0 Learning Edition
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft Visual Basic Enterprise Edition for Windows 6.0
Ű¿öµå:?
kbmt kbdocfix kbhowto KB175512 KbMtko
±â°è ¹ø¿ªµÈ ¹®¼­
Áß¿ä: º» ¹®¼­´Â Àü¹® ¹ø¿ª°¡°¡ ¹ø¿ªÇÑ °ÍÀÌ ¾Æ´Ï¶ó Microsoft ±â°è ¹ø¿ª ¼ÒÇÁÆ®¿þ¾î·Î ¹ø¿ªÇÑ °ÍÀÔ´Ï´Ù. Microsoft´Â ¹ø¿ª°¡°¡ ¹ø¿ªÇÑ ¹®¼­ ¹× ±â°è ¹ø¿ªµÈ ¹®¼­¸¦ ¸ðµÎ Á¦°øÇϹǷΠMicrosoft ±â¼ú ÀÚ·á¿¡ ÀÖ´Â ¸ðµç ¹®¼­¸¦ Çѱ۷ΠÁ¢ÇÒ ¼ö ÀÖ½À´Ï´Ù. ±×·¯³ª ±â°è ¹ø¿ª ¹®¼­°¡ Ç×»ó ¿Ïº®ÇÑ °ÍÀº ¾Æ´Õ´Ï´Ù. µû¶ó¼­ ±â°è ¹ø¿ª ¹®¼­¿¡´Â ¸¶Ä¡ ¿Ü±¹ÀÎÀÌ Çѱ¹¾î·Î ¸»ÇÒ ¶§ ½Ç¼ö¸¦ ÇÏ´Â °Íó·³ ¾îÈÖ, ±¸¹® ¶Ç´Â ¹®¹ý¿¡ ¿À·ù°¡ ÀÖÀ» ¼ö ÀÖ½À´Ï´Ù. Microsoft´Â ³»¿ë»óÀÇ ¿À¿ª ¶Ç´Â Microsoft °í°´ÀÌ ÀÌ·¯ÇÑ ¿À¿ªÀ» »ç¿ëÇÔÀ¸·Î½á ¹ß»ýÇÏ´Â ºÎ Á¤È®¼º, ¿À·ù ¶Ç´Â ¼ÕÇØ¿¡ ´ëÇØ Ã¥ÀÓÀ» ÁöÁö ¾Ê½À´Ï´Ù. Microsoft´Â ÀÌ·¯ÇÑ ¹®Á¦¸¦ ÇØ°áÇϱâ À§ÇØ ±â°è ¹ø¿ª ¼ÒÇÁÆ®¿þ¾î¸¦ ÀÚÁÖ ¾÷µ¥ÀÌÆ®Çϰí ÀÖ½À´Ï´Ù.

Çǵå¹é º¸³»±â