如何让VB生成文件在同一目录下
open "文件路径及文件名" for output as #1close #1上面两句其实是用来打开一个指定的文件的并关闭的,但因为是用来写入的文件,如果不存在这个文件的话程序会自动创建一个的,所以就可以用作是创建文件的命令了
有两种方法:
1、使用DIR递归,不过这是微软明确不推荐的
2、最快但不太正规的
使用 Shell "cmd /k dir c:\windows /s/b/a >>d:\jg.txt"
c:\windows 目标文件夹,当前文件夹为 app.path,你可以根据要求生成命令字符串
d:\jg.txt 为临时文件
执行这行后再读取临时文件即可。极快!
生成什么文件,把目标定位到这里
如
用for i = 1 to 10定义
然后把你的文件路径定位到app.path & "\pic\" & i & ".txt"
自己琢磨琢磨??
p = Replace(App.Path & "\", "\\", "\") '这就是当前目录
Open p & "1.txt" For Output As #1
Open p & "2.txt" For Output As #2
Open p & "3.txt" For Output As #3
(如此类推)
Close All
Private Sub Form_Load()
Open p & "c:\文件夹名称\1.txt" For Output As #1
Open p & "c:\文件夹名称\2.txt" For Output As #2
Open p & "c:\文件夹名称\3.txt" For Output As #3
........
Close All
Sub
Set a = CreateObject("Scripting.FileSystemObject").CreateTextFile(App.Path & "testfile.txt", True)
请教VB 如何使用vbAdvance 生成dll文件
7.生成DLL文件。二、DLL引用 1.建立一个普通窗体。2.添加引用。3.在程序中添加以下代码。Option Explicit Public Frac As New Fraction Private Sub Command1_Click()Frac.Add Val(Text1.Text), Val(Text2.Text)Text3.Text = Frac.Num End Sub Private ...
VB 怎样将生成的文件通过‘选择文件夹’方式保存
使用通用对话框就可以啦,通用对话框就是CommonDialog1控件 你现在CommonDialog1控件画到窗体上,然后在“保存”按钮中调用它既可,调用代码最简单的就是增加以下这句:CommonDialog1.ShowSave 当然还可以设置其他属性哦,如保存文件类型、保存文件默认位置等等。
在vb中生成的扩展名为dll的文件放在哪里
一般放在你的可执行文件的目录下,也有放在系统的路径下,还可放在任意目录下,不过要在path中设置路径。
VB如何生成dat文件
VB可通过Open 语句,用Print # 语句将格式化显示的批处理行命令数据写入顺序文件中。Open 语句,能够对文件输入\/输出 (I\/O)。Print # 语句,将格式化显示的数据写入顺序文件中。Output关键字,如果 pathname 指定的文件不存在,那么,在用 Append、Binary、Output、或 Random 方式打开文件时,可以建立这...
vb中生成exe文件
然后在其他的电脑上先进行安装,最后才能正确的运行。打包的方法如下:1、编译成EXE文件;2、通过VB自带的“Package & Deployment 向导”对该工程进行打包,最后生成安装包setup.exe setup.lst等关键文件。这时,你只有把它们复制到其他电脑上并进行安装,即可正确使用该软件了。
如何使VB生成的EXE文件包含图片文件
方法一:将图片放到 PictureBox 或是 Image 控件中,然后隐藏该控件。等需要时显示。方法二:将所需要的资源文件中单独存放在一个资源文件。1,点选菜单“外接程序”下的“外接程序管理器”,在弹出的对话框的列表框中选择“VB 6资源编辑器”,选择加载并单击“确定“后退出对话框。2,点击“工具”...
vb怎么生成exe文件
首先要生成exe 然后要用 外界程序->外接程序管理器->打包和展开向导,选择加载选框 然后用 外界程序->打包和展开向导 之后选择需要的项目一直下一步 其中要注意的是,如果有文件在程序里面被用到,在中间一个步骤里一定要把那个程序也加到包里(具体哪步记不清了)这样可以生成一个完整的安装文件,...
VB如何生成EXE文件
vb生成EXE文件的方法
在VB中,怎么保存窗体文件和工程文件,并生成exe文件?
回答:直接点保存就可以了,生成exe就点:文件->《生成可执生文件夹》
vb生成可执行文件
VB经过编译后,生成了一个EXE的可执行文件,这个文件不依赖与你的源代码文件,当然可以执行。但是如果仅仅是编译,没有发布(把一些依赖项目打包,封装),那么在不同的计算机上,往往不能执行了。其实能不能执行,主要看你的程序是否调用了一些DLL,COM组件,这些依赖项是否是你这台计算机独有的....
油斩怡方: open 桌面路径 & "\temp.txt" for output as #1 或 open app.path & "\temp.txt" for output as #1
海城市13115755348: 如何用VB使文件夹中的文件与文件夹同一路径 - ?
油斩怡方: 一个文件的路径名就是它存放的具体位置.你要把D:\123\456的路径改成D:\456,其实质就是把文件456移动到d:\直接修改文件路径名的作法是很难实现的,与其如此,不如直接按上述方法操作更简单.
海城市13115755348: [VB] 如何在指定目录下创建文件 - ?
油斩怡方: open "文件路径及文件名" for output as #1close #1上面两句其实是用来打开一个指定的文件的并关闭的,但因为是用来写入的文件,如果不存在这个文件的话程序会自动创建一个的,所以就可以用作是创建文件的命令了
海城市13115755348: vb 中怎样把配置文件放在同一个目录 - ?
油斩怡方: 这样就行了.改了一个错误.====================== Private Sub Form_Unload(Cancel As Integer) Dim i As String '这一句原来不对啊 i = IIf(Len(App.Path) > 3, App.Path & "\", App.Path) & "config.ini" Open i For Output As #1 Print #1, Text1.Text Close #1 End Sub
海城市13115755348: [VB] 如何在指定目录下创建文件 - ?
油斩怡方: Dim fso As New FileSystemObject, fil As FileSet fil = fso.CreateTextFile("c:\testfile.txt", True)
海城市13115755348: VB如何将两个文件放到选定目录下? - ?
油斩怡方: '用VB的Shell命令启动可执行文件 Shell "C:\Program Files\WinRAR\WinRAR X C:\B\1.rar C:\NEW\ -Y" 其中:C:\Program Files\WinRAR\WinRAR ---- 是WinRar.exe的标识符(盘符、路径、文件名) X ---- 是WinRar的命令部分,表示以绝对路径作为解压缩的目录 C:\B\1.rar ---- 是压缩文件的标识符 C:\NEW\ ---- 是指定的解压缩文件夹,如果不存在会自动创建-Y 是开关符号,表示在解压过程中发现存在目标文件就直接覆盖 另外可以用VB的通用对话框控件,来实现文件夹以及文件的选择.
海城市13115755348: Vb点击保存把名称和内容生成.txt格式在原目录 - ?
油斩怡方: open app.path & "\生成.txt" for output as #1 print #1,text1.text & vbcrlf & text2.text close #1
海城市13115755348: VB怎么才能在某个地方生成一个文件或文件夹 - ?
油斩怡方: MkDir "c:\123" '在C盘创建一个叫123的文件夹 Open "c:\123\abc.txt" For Output As #1 '在新创建的123文件夹内新建一个叫abc.txt的文件 Print #1, "你好!" '往文件内写入内容,如果只想创建空文件,则这行可省略 Close #1 '关闭文件
海城市13115755348: 用VB编好的程序在电脑怎么运行啊!那些文件要放在那个目录中啊 - ?
油斩怡方: 先要保存工程,然后生成exe,都在“文件”菜单里 如果是在本机运行,直接就能运行,如果要拿到别的机子上用,就需要打包: 打包方法: -------------------------------------以下内容为转载———————————————————— 原文地址: ...
海城市13115755348: vb怎么在自身目录下创建TXT文件 - ?
油斩怡方: 第一步:按顺序点击: 工程——引用 ,勾选:"microsoft scripting runtime"第二步:在窗体上创建一个按钮,复制以下代码即可:Option ExplicitPrivate Sub Command1_Click() Dim fso As New FileSystemObject If fso.FileExists(IIf(Right(...