以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]filesys将文件写到系统文件夹  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=101075)
--  作者：gsnake
--  发布时间：2017/5/24 15:29:00
--  [求助]filesys将文件写到系统文件夹
Dim s As Integer = 1
Dim f As String = SpecialFolder.SYSTEM & "\\test.txt"
Output.Show(F)
FileSys.WriteAllText(f, s, False)

我用的是windows7 ，执行不报错，但没有生成文件，写到SpecialFolder.MyDocuments 可以

[此贴子已经被作者于2017/5/24 15:32:56编辑过]
--  作者：gsnake
--  发布时间：2017/5/24 15:53:00
--  
Dim f As String = SpecialFolder.system & "\\test.txt"
Output.Show(f)
If FileSys.FileExists(f) Then
    Messagebox.Show("文件已经存在!","提示")
Else
    Messagebox.Show("文件不存在或已经被删除!","提示")
End If

执行以上代码，显示文件已经存在，但就是找不到他
--  作者：gsnake
--  发布时间：2017/5/24 16:04:00
--  
知道了，我的是Windows64位，system32用户级syswow64
--  作者：有点色
--  发布时间：2017/5/24 16:20:00
--  

 如果要往 system32 拷贝内容，系统是不允许的。需要这样变通

 

Dim s As String = Date.now
Dim fstr As String = "e:\\test.txt"
Dim f As String = SpecialFolder.SYSTEM & "\\test.txt"
Dim fcmd As String = "e:\\test.bat"
FileSys.WriteAllText(fstr, s, False)
FileSys.WriteAllText(fcmd, "copy " & fstr & " " & f & " /y", False, encoding.default)
\'FileSys.WriteAllText(fcmd, "copy " & fstr & " " & f & " /y" & vbcrlf & "pause", False, encoding.default)

System.Diagnostics.Process.Start("Explorer", "  /select," & fcmd & " ")
system.threading.thread.sleep(1000)
Sendkeys.Send("{enter}")

 

 当然，如果你用代码直接拷贝，会存放到 syswow64 文件夹