十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
表面意思是权限不够,但是其实有很多种可能。你没给出具体情况,给你猜的话很难猜中的。。。
成都创新互联公司是专业的新丰网站建设公司,新丰接单;提供成都网站设计、网站制作、外贸营销网站建设,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行新丰网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
我以前写过一个vb.net操作文件的程序,也总是这个情况,后来发现是因为我是对网络驱动器上的文件进行的操作才导致的失败。
很多种原因的,自己一点一点分析吧~~~希望能帮到你
不知道你所谓的选择目录使用的是什么方法,但不管什么方法,你的程序中肯定是知道这个目录的是吧?假定这个目录保存在变量d中,那么就是:
Shell d "\yijianguilei.bat", vbNormalFocus '注意那个括号是画蛇添足,可以去掉
App.Path就是软件所在目录,因此把它换成bat所在的目录不就行了?
Imports System.IO
Imports System.Diagnostics
Imports System.Windows.Forms
Class Form1
Inherits Form
Private filename As String = "abc.bat"
Private bat As String = "@echo off" vbCr vbLf "dir" vbCr vbLf "pause" vbCr vbLf "exit" vbCr vbLf
Private Sub New()
Dim btn As New Button()
btn.Parent = Me
btn.Text = "Run bat"
AddHandler btn.Click, Sub() Process.Start(filename)
End Sub
Protected Overrides Sub OnLoad(e As EventArgs)
File.WriteAllText(filename, bat)
MyBase.OnLoad(e)
End Sub
Protected Overrides Sub OnClosed(e As EventArgs)
File.Delete(filename)
MyBase.OnClosed(e)
End Sub
STAThread _
Public Shared Sub Main()
Application.Run(New Form1())
End Sub
End Class
在 Form_Load 写入
Dim cmd As String = Command()
cmd 就是传入的参数了。
就看你怎么利用了。
'窗体上需要一个按钮
Private
Sub
Command1_Click()
Open
"C:\test.bat"
For
Output
As
#1
#1,
"md
d:\op..\"
Close
#1
End
Sub
这样,点击按钮就在C盘下建立了一个test.bat的文件了.