Shellが、パスによっては動作しない (ID:89885)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 8.3準拠にすれば動くと思いますよ。 ロングファイルネームを利用せず、 ショートファイルネームを使ってみてください。 Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" _ (ByVal lpszLongPath As String, _ ByVal lpszShortPath As String, _ ByVal cchBuffer As Long) As Long Private Sub Command1_Click() Dim sLongPathName As String Dim sShortPathName As String * 256 Dim sExecPathName As String Dim lRetValue As Long sLongPathName = "C:\Documents and Settings\Administrator\デスクトップ\新しいフォルダ\xxxxx.exe" lRetValue = GetShortPathName(sLongPathName, sShortPathName, Len(sShortPathName)) sExecPathName = Left(sShortPathName, lRetValue) Call Shell(sExecPathName) End Sub