VB编程中App.Path的“陷阱与彩蛋”

在平时的VB开发中，在涉及文件的操作时，我们经常会用到App.Path。

Private Sub Timer1_Timer()

'通过定时器每隔指定时间自动创建一个新文件

Static i As Integer

 i = i + 1

'设置文件路径

filePath = App.Path & "\新建文件-" & Format(Now, "yyyyMMddHHmmss") & ".txt"    '创建文件

Open filePath For Output As #1    ' 写入内容

Print #1, "这是自动创建的第" & i & "个文件"    ' 关闭文件

 Close #1

End Sub

我们知道App.Path返回的是工程文件所在路径，但编译成EXE后，它就变成了EXE所在路径。

有趣的是：如果程序从光盘或移动设备运行，App.Path 可能会是只读的。

利用这一点，可以判断程序是否在U盘里运行，然后做出不同的应对处理。