vb代码在xp下能运行，win7下就找不到路径？

Question

win7append

Answer 1

还是找不到路径呀
而且我把vb启动也设了管理员身份以及兼容xp sp3

Answer 2

非常感谢，您的提示给了我很大的启发
问题是出在文件名上“Open App.Path & "\" & Date & ".txt" For Append As #1”这一句中以日期为名，但是我看到了电脑右下角日期是2015/3/3，这样的格式是不能做文件名的于是我把句中Date 换成ABC，就生成了一个没有主名的文本文件
现在就是看能否把日期改成2015-3-3格式以便做为文件主名。
另外，这个句子不尽如人意的地方是打开编辑时无法即时添加时间，不知道该怎样在编辑的状态下随时能运行并追加上新的时间

Answer 3

Open App.Path & "\" & Format(Date, "yyyy-mm-dd") & ".txt" For Append As #1

Answer 4

另外，这个句子不尽如人意的地方是打开编辑时无法即时添加时间，不知道该怎样在编辑的状态下随时能运行并追加上新的时间.
=====================txt 文件的确如此，但也带来一个好处，那就是已经打开文件不影响文件的后台编辑。你可以这样，文件重新编辑后，查找打开此文件的窗口，使之关闭，然后重现打开文件。前者要用到 FindWindow 和 SendMessage API，后者要用到 ShellExecute API。

Answer 5

一个例子：Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const WM_CLOSE As Long = &H10Private Sub Command1_Click()
Dim n As Long    Open "c:\test.txt" For Append As #1
    Print #1, "88"
    Close #1
    
    n = FindWindow("Notepad", "test.txt - 记事本")
    SendMessage n, WM_CLOSE, 0, 0
    
    ShellExecute Me.hwnd, "open", "c:\test.txt", "", "", 1
    
End Sub