⑴ VB中怎么把自己选定目录下的文件保存到指定目录
Private Sub Command1_Click()Dim sf As String, df As StringCommonDialog1.ShowOpensf = CommonDialog1.FileNameIf sf <> "" Then df = "e:\tmp\" & CommonDialog1.FileTitle '保存到e:\tmp文件夹,自己改 If Dir(df) <> "" Then If MsgBox("目标文件已存在,是否覆盖?", vbYesNo) <> vbYes Then Exit Sub End If FileCopy sf, df MsgBox sf & vbCrLf & "已保存为" & vbCrLf & dfEnd IfEnd Sub
⑵ vb查看目录存在的文件夹
'不需要什么界面设置. '新建一个工程,复制以下代码就可以运行了. '需要源文件可以发EMail给我索要[email protected]Option Explicit Dim WithEvents CmdGo As CommandButton Dim TxtDir As TextBox Dim LstShow As ListBox Private Sub Form_Load() Set CmdGo = Controls.Add("VB.CommandButton", "Command1") Set TxtDir = Controls.Add("VB.TextBox", "Text1") Set LstShow = Controls.Add("VB.ListBox", "List1") With CmdGo .Caption = "开始查找" .Top = 400 .Left = 3500 .Width = 1000 .Height = 400 .Visible = True End With With TxtDir .Top = 450 .Left = 300 .Width = 3000 .Height = 300 .Text = "H:\" .Visible = True End With With LstShow .Top = 1000 .Left = 300 .Width = 5000 .Height = 3600 .Visible = True End With End Sub Private Sub CmdGo_Click() Dim tFolder As String Dim i As Integer If TxtDir.Text = "" Then MsgBox "请在文本框填上正大正确的路径", vbOKOnly, "温馨提示" TxtDir.SetFocus Else LstShow.Clear If Right(TxtDir.Text, 1) <> "/" And Right(TxtDir.Text, 1) <> "\" Then TxtDir.Text = TxtDir.Text & "\" End If tFolder = Dir(TxtDir.Text, vbDirectory) Do Until tFolder = "" If GetAttr(TxtDir.Text & tFolder) >= 16 And GetAttr(TxtDir.Text & tFolder) < 32 Then LstShow.AddItem tFolder End If tFolder = Dir Loop For i = 0 To LstShow.ListCount – 1 If Dir(TxtDir & LstShow.List(i) & ".exe") <> "" Then LstShow.List(i) = LstShow.List(i) & " 存在同名的.exe文件" End If Next End If End Sub
⑶ VB运行库文件放在哪里
VB运行库文件放在到系统的安装目录的SYSTEM32下,然后使用 regsvr32.exe 注册 VB运行库文件 即可。1,以XP为例,系统默认系统目录为:C:\Windows ,那么将VB运行库文件放在到系统的安装目录的C:\Windows\SYSTEM32\下。2,点开始,运行,输入:regsvr32.exe C:\Windows\SYSTEM32\vb运行库名称 , 然后点确定,提示注册成功即可。
⑷ VB6.0保存文件时,若不改变目录名,则系统默认的目录是
VB6.0保存文件时,若不改变目录名,则系统默认的目录是如下路径:
C:Program FilesMicrosoft Visual StudioVB98
即VB6.0所安装的目录。
⑸ VB保存新建工程时,默认的文件夹是
VB安装目录的VB98文件夹,每个人的电脑里面的文件不同,因此这个文件夹的位置有所不同,这里无法具体给出。拓展:可视化程序设计一般有一下步骤设计程序界面编写程序代码调试、运行程序;面向对象的程序设计以对象为中心,以事件为过程执行的起点例题:设计一个简易的打字测试程序,单击“开始”按钮,计时开始,输入字符;单击“结束”按钮,程序输出打字速度。(1)启动VB,新建一个VB标准EXE工程。单击工具箱中的文本框控件(TextBox),将鼠标指针移到窗体上,拖动十字线在窗体上画出大小适当的控件。(2)用同样的方法在窗体中添加两个命令按钮控件(CommandButton)、两个标签控件(Label)和一个文本框控件。(3)通过属性窗口可以更改对象的原有属性。(4)双击“frmTest”窗体中的“开始”按钮,打开对应的代码窗口。在对象中=列表框中选择“通用”,输入代码。(5)在对象列表框中选择“cmdStart",在过程列表框中选择”Click"事件。输入代码。(6)保存工程,运行程序。