⑴ VB中怎麼把自己選定目錄下的文件保存到指定目錄
Private Sub Command1_Click()
Dim sf As String, df As String
CommonDialog1.ShowOpen
sf = CommonDialog1.FileName
If 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 & df
End If
End 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)保存工程,運行程序。