Computer.FileSystem.SpecialDirectories可以获得系统的一些特殊目录
如:
.AllUsersApplicationData为“Documents and Settings/All Users/ApplicationData/作者名/产品名/版本号/”目录
.CurrentUserApplicationData为“Documents and Settings/当前用户名/ApplicationData/作者名/产品名/版本号/”目录
.Desktop为当前用户的桌面(若自己修改过,则该值仍为默认的桌面路径)特别注意
.myDocument为当前用户的“我的文档”目录(若修改过,则该值为修改后的路径)
.MyMusic为当前用户的“我的音乐”目录(若修改过,则该值为修改后的路径)
.MyPictures为当前用户的“图片收藏”目录(若修改过,则该值为修改后的路径)
.Programs为当前用户的“开始菜单/程序”目录(若修改过,则该值为修改后的路径)
.ProgramFiles为系统ProgramFiles目录(若修改过,则该值为修改后的路径)
.Temp为系统的TEMP目录(若修改过,则该值为修改后的路径)
因此,我们可以通过这个系统属性来获得IE的所在目录,如下:
Dim IE_Path As String=My.Computer.FileSystem.SpecialDirectories.ProgramFiles & "/Internet Explorer/iexplore.exe"
Shell(IE_Path, AppWinStyle.MaximizedFocus)
如果想通过IE打开某个文件,可以用将Shell语句修改如下:
Dim FilePath As String="F:/Flash/1.swf"
Shell(IE_Path & " " & FilePath, AppWinStyle.MaximizedFocus)