機能と数式 | VBA | セミナー | オンラインソフト | お問い合わせ | その他
Top > Excel > VBA > FileSystemObject

Fileオブジェクト - ShortNameプロパティ



【書式】
File.ShortName

8.3形式のファイル名を返します。
8.3形式のファイル名では空白が使用できず、半角で8文字までしか使用できません。
Sub test64()
    Dim FSO As Object, Target As String
    Target = "C:\Program Files\Windows Media Player\Skins\Windows Classic.wmz"
    Set FSO = CreateObject("Scripting.FileSystemObject")
    ''「WINDOW~1.WMZ」を表示します
    MsgBox FSO.GetFile(Target).ShortName
    Set FSO = Nothing
End Sub



このエントリーをはてなブックマークに追加