FolderName = IO.Path.GetDirectoryName ("C:\Winnt\System32\User32.dll") 'C:\Winnt\System32 を返す。
FullPath = "C:\Windows\test\sdb.txt" FolderName = Left(FullPath, Len(FullPath) - Len(Dir(FullPath)))