頑張るのは明日から
Sub sample() Debug.Print CreateObject("Shell.Application").NameSpace(&H27) Debug.Print CreateObject("Shell.Application").NameSpace(&H27).self.Path End Sub
コメントを投稿
0 件のコメント:
コメントを投稿