vb创建txt文件

作者：samcard

应用场景：有超过2台电脑，其中一台为服务器之类的角色，其他电脑使用需要启动服务器，或多台电脑只需启动一台，其他就开机，免去逐台去开机的操作。
测试环境：Win11,Win 10,Win7 受控电脑需要在bios中开启网卡启动，在win里网卡属性里也打开wol 。主控电脑不需要设置，主控电脑需要下载wolcmd.exe，复制到windows目录下。
定义：A电脑-主控电脑，B电脑-受控电脑
实现：A电脑创建txt文件，并改名为wol.bat. 内容如下：
@echo off
wolcmd ”B电脑mac地址“ “B电脑ip地址” “B电脑子网” 7
将wol.ba也放到windows目录下。
A电脑创建txt文件，并改名为wol.vbs,内容如下：
Set ws = CreateObject("Wscript.Shell")
ws.run "cmd /c C:windowswol.bat",vbhide
将wol.vbs 文件放到启动文件夹，开机自动运行，vbs的目地是实现无感运行。
更高级的场景：A电脑开机弹出窗口，选择是或者不选择XX秒后发出开机指令，B电脑开机，选择否，B则不会发出开机指令。(将下面内容另存为wol.vbs放入启动文件夹)
Set objShell = CreateObject("WScript.Shell")

X = objShell.Popup("15 Seconds to cancel.", 15, "联动开机", vbYesNo)

Select Case X
Case vbYes
createobject("wscript.shell").run "C:windowswol.bat",0
Case vbNo
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "taskkill /im wscript.exe /f ",0 ,true

Case Else
createobject("wscript.shell").run "C:windowswol.bat",0
End Select

阅读更多服务软件精彩内容，可前往什么值得买查看

蒯饱岚748如何用VB新建TXT文档并按行输出 -
史念诸18442596945 ______ 新建TXT文档并按行输出代码如下:Dim s as String '定义一个字符变量 Open ＂C:\OUT.txt＂ For Output As #1 '写入文件C:\OUT.TXT'程序循环过程 Print #1, s'程序循环过程 Close #1 '关闭打开的文件

蒯饱岚748如何用vb创建可以命名的txt文件 -
史念诸18442596945 ______ Private Sub Form_Click() fname = InputBox(＂请输入文件名:＂, ＂请保证文件名正确,如例子＂, ＂d:\temp.txt＂) fn = FreeFile '获取一个空闲可用文件号 Open fname For Output As fn '打开fname指名的文件用于输出 Print #fn, ＂你好,这是要输入到文件中的内容＂ Print #fn, ＂你好,这是要输入到文件中的第二行内容＂ Close fn '关闭文件,记得用完文件要关闭它 End Sub

蒯饱岚748vb写txt文件 -
史念诸18442596945 ______ 添加三个text控件 添加两个command控件 代码: Private Sub Command1_Click() Set a = CreateObject(＂scripting.filesystemobject＂) Set b = a.createtextfile(App.Path & ＂1.txt＂) b.writeline (Text1.Text) b.writeline (Text2.Text) b.writeline (Text3....

蒯饱岚748vb语句如何新建txt -
史念诸18442596945 ______ Open app.path & ＂\eg.txt＂ For Output As #1 print #1,＂你需要写入的文字＂ Close #1

蒯饱岚748vb生成txt -
史念诸18442596945 ______ open ＂C:\123.txt＂ for output as #1 ? #1,＂lable123＂ close #1

蒯饱岚748VB6.0 如何新建txt文件? -
史念诸18442596945 ______ Private Sub Command1_Click() Open Text1.Text & ＂\＂ & Text2.Text & ＂.txt＂ For Output As #1 Print #1, A Close #1 End Sub text1路径 text2文件名 A为输出内容

蒯饱岚748如何用VB创建一个文件名为当前电脑时间的TXT文件 -
史念诸18442596945 ______ 时间里有:,如09:12:33,这在文件起名时是不允许的.如果想做,建议把分隔符改成其他.这时你可以用hour(time())取时,分、秒类似取 也可以放在文本框里用,程序如下,其中 fn 是个文本框 Private Sub Command1_Click() A = Time() fn = ...

蒯饱岚748VB创建TXT文件问题
史念诸18442596945 ______ Set fs = CreateObject(＂Scripting.FileSystemObject＂) Set a = fs.CreateTextFile(App.Path & ＂\MS2Option.txt＂, True) a.Close 这是在工程所在目录下创建一个MS2Option.txt的文件 你这样的有两种 一种是FOR循环if dir(目录\文件名)<>＂＂ 这是判断文件是否存在的 如果存在你就I的值递加 如果不存在就创建就OK了 还有一种就是弄一个配置文件了 前提是不会手动去修改它 一个固定的配置文件中记录你已经是I的值 这样直接创建就OK了

蒯饱岚748如何用VB创建一个文件名为当前电脑时间的TXT文件
史念诸18442596945 ______ Open ＂c:\＂ &amp; Format(Now, ＂HHMMSS＂) &amp; ＂.txt＂ For Output As #1 Close #1

蒯饱岚748请问用VB怎麽建立文件?
史念诸18442596945 ______ mkdir ＂文件夹名＂ 这个“文件夹名”必须是全路径,如c:\a\b\新文件 If (Right(File1.Path, 1)) = ＂\＂ Then mkdir File1.Path & 新建文件夹 Else mkdir File1.Path & ＂\＂ & 新建文件夹 End If