寻VB简单的一些代码

差不多高职生学习的一些 代码   不要太难的   另外有代码 的中文名最好

答案：打开文件
Shell "explorer.exe "&文件路径（包括文件名和扩展名） , vbNormalFocus
理论上这句代码可以打开任何系统已知类型文件
Private Sub File1_DblClick()
dim FilePath as String
FilePath =File1.Path & "\" & File1.FileName
Shell "rundll32.exe url.dll,FileProtocolHandler " & FilePath, vbNormalFocus
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
File1.Refresh
End Sub 
 
 
 
Shell函数试试看...
Shell "cmd /c rundll32.exe url.dll,FileProtocolHandler " & 快捷方式路径字符串, vbNormalFocus 

上一个：vb编程如何能提高??
下一个：有没有免费教VB编程的