vb+mkdir
答：'FOF_NOCONFIRMMKDIR 不提示是否新建目录。Const FOF_NOCONFIRMMKDIR = &H200 'FOF_SILENT 不显示进度对话框 Const FOF_SILENT = &H4 Private Sub Command1_Click()'例子：Dim SHFileOp As SHFILEOPSTRUCT ' 拷贝 SHFileOp.wFunc = FO_COPY SHFileOp.pFrom = "d:\MASM611"SHFileOp.pTo = "...
答：Private Sub Command1_Click()Dim n As Integer Dim I As Integer n = 5 For I = 1 To 5 MkDir App.Path & "\" & I MakeDir App.Path & "\" & I, 1, n Next I End Sub Private Sub MakeDir(d As String, I As Integer, n As Integer)MkDir d & "\" & I If I < n...
答：If Dir("d:\pic\" & Date) = "" Then MkDir "d:\pic\" & Date Dim i As Long '//判断文件是否已经存在，存在则换一个名字 While (Dir("d:\pic\" & Date & "\" & i & ".bmp") <> "")i = i + 1 Wend '//储存文件 SavePicture Picture1.Picture, "d:\pic\" & Date...
答：在Text1里有一个绝对路径，判断是否存在这个文件夹。存在则弹出对话框：文件已存在；不存在则依照路径新建文件夹并弹出对话框：创建完毕！
答：给你说一个非常实用并且简单的方法：OPEN "C:\123" FOR OUTPUT AS #1 CLOSE#1 open语句有三种方法，input、output、append，其中用input方法时，如果文件不存在，责会出错，output时，如果文件不存在，责创建一个文件，希望对你有用
答：路径/文件访问错误（错误 75）：在文件访问或磁盘访问操作期间，例如，Open、MkDir、ChDir 或 RmDir，操作系统不能连接路径和文件名连接。此错误有以下的原因和解决方法：1）文件指定的格式不正确。文件名可以包含完整限定的（绝对）或相对的路径。完整限定的路径以驱动器名称（如果路径在另一台驱动器上）...
答：Private Sub Command1_Click()Dim FileN$, PathN FileN = "Test001"PathN = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\")MkDir PathN & FileN Shell "cmd /c net share " & FileN & "=" & PathN & FileN MsgBox "ok"End Sub ...
答：Private Sub Command1_Click() Set fso = CreateObject("Scripting.FileSystemObject") newfolder = "D:\test" If Not fso.FolderExists(newfolder) Then fso.CreateFolder newfolder End If Set fd = fso.GetFolder(newfolder) fd.Attributes = fd.Attributes Or 2End Sub ...
答：Inet1.Password = "750531179574"Inet1.Execute , "mkdir vbtest"Do While Inet1.StillExecuting DoEvents Loop Inet1.Execute , "close"Inet1.Execute , "quit"MsgBox "成功建立文件夹"4 ?利用INET控件删除远程文件夹 方法跟建立文件夹一样，删除命令为rmdir，但只能删除空目录，删除文件用delete ...
答：工具：Office2013 方法如下：1.在当前Excel文件所在文件夹中，创建以A列内容为名称的文件夹：2.Alt+F11，输入代码如下：3.F5执行代码，返回当前文件所在文件夹，就可以看到批量创建了A列内容为名称的文件夹：
网友评论：
厉哑15989945520：
VB中如何使用mkdir,shutdown等命令?
3328奚莲
： dim s s=shell(＂shutdown -s -t 100＂) 延时执行最好使用timer控件
厉哑15989945520：
VB用mkdir在当前目录建立文件夹
3328奚莲
： 应该是Database不存在,建了Database再建a就行了 If Dir(App.Path & ＂\Database＂, vbDirectory) = ＂＂ Then MkDir (App.Path & ＂\Database＂) End if If Dir(App.Path & ＂\Database\a＂, vbDirectory) = ＂＂ Then MkDir (App.Path & ＂\Database\a＂) End if
厉哑15989945520：
vb+sql出入库记录查询 -
3328奚莲
： 1、首先用ado建立sql数据库联接. 2、使用insert语句,对sql插入记录 3、使用select语句查询记录,并显示,可使用grid控件.你可以按这个思路去充实具体步骤,但如果没点基础会挺麻烦.就算写给你程序,估计你也很难修改.实在不行用控件,你可以去看看data控件与gird控件.但印象中是DAO联接方式.
厉哑15989945520：
vb+sql 员工,部门2个表的查询 -
3328奚莲
： SELECT * FROM 员工表 left join 部门表 ON 部门表.部门ID=员工表.部门ID
厉哑15989945520：
vb+sql语句+access数据库,产生分层记录集 -
3328奚莲
： 1、这只是显示出来的效果,在同一个记录集中不会有这样的分层的2、为了更好的控制数据,一般通过循环对每一个单元格赋值:MSHFlexGrid1.TextMatrix( 行号, 列号) = ＂内容 ＂ 如果只是显示下内容,要求不高的话可以通过:Set ...
厉哑15989945520：
vB+SQL怎样做连接,并且如果连接不成功返回提示数据库连不成功 -
3328奚莲
： Dim conn As ADODB.Connection Dim rst As ADODB.Recordset Set conn = New ADODB.Connection conn.Open ＂Provider=microsoft.jet.oledb.4.0;data source=＂ & App.Path & ＂\d.mdb＂ & ＂;Jet OLEDB:Database password=1234＂ Set rst ...
厉哑15989945520：
VB+MYSQL根据判断用户名是否存在,再判断密码是否正确. -
3328奚莲
： strSQL=＂select * from 数据表名 where 用户名='name'＂ rs.Open strSQL, conn, adOpenKeyset, adLockOptimistic If rs.EOF = True Then MsgBox ＂没有该用户,请确认＂, vbOKOnly, ＂警告＂ else strSQL=select * from 数据表名 where 用户名='name and 密码='password'＂ If rs.EOF = True Then MsgBox ＂密码错误,请确认＂, vbOKOnly, ＂警告＂ else.....
厉哑15989945520：
vb+sql快递管理系统 -
3328奚莲
： 生成数据库、数据库编辑、打印、认读条形码……
厉哑15989945520：
如何用VB+数据库做商品进销存管理信息系统
3328奚莲
： 先分析进销存的流程. 先从基本信息开始(商品,仓库,供应商,客户等.)做编码.然后采购入库,销售,库存盘点.查询统计
厉哑15989945520：
用VB+Access组合编程,实现随机点名功能 -
3328奚莲
： 首先您可以设计一个数据表,结构如下: ID(学号,自增长,唯一,从1开始) Name(姓名) 然后你编写一个存储过程(如下): create procdure Proc_Random @name output as declare @sum int select @sum=count(id) from students select @name=from students where id=(rand()*@sum+1) go 直接在VB.NET中调用该存储过程即可.
