如何用VB获取盘符，并把C:\1.exe拷贝到每个盘里

Posted 2023-03-16

我要具体代码，谢谢。
或者也可以获取盘符，在每个盘符新建文件夹的代码

先画个DriveListBox控件，贴上以下代码：

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Private Sub Form_Load()
Dim DrvNum As Single
Dim drvName As String
Dim DrvType As Integer
Dim i As Integer

' Form1.AutoRedraw = True
Drive1.Visible = False

DrvNum = Asc("a") - 1
For i = 0 To Drive1.ListCount
DrvNum = DrvNum + 1
drvName = Chr(DrvNum) & ":\"
DrvType = GetDriveType(drvName) '判断驱动器类型
If GetDriveType(drvName) = 3 Then '硬盘
'拷贝文件
'注：1.exe 不能放在根目录下，要放在文件夹中
FileCopy "C:\temp\1.exe ", drvName & "1.exe"

'创建目录或文件夹
'MkDir drvName & "我的目录" ' 建立新的目录或文件夹。
End If
' Select Case GetDriveType(drvName)
' Case 0
' Me.Print "未知 " & "盘符为：" & Trim(UCase(Chr(DrvNum)))
' Case 2
' Me.Print "软驱 " & "盘符为：" & Trim(UCase(Chr(DrvNum)))
' Case 3
' Me.Print "硬盘 " & "盘符为：" & Trim(UCase(Chr(DrvNum)))
' Case 4
' Me.Print "网络盘 " & "盘符为：" & Trim(UCase(Chr(DrvNum)))
' Case 5
' Me.Print "光驱 " & "盘符为：" & Trim(UCase(Chr(DrvNum)))
' Case 6
' Me.Print "RamDisk " & "盘符为：" & Trim(UCase(Chr(DrvNum)))
' End Select
Next 参考技术A 来个简单的：
在窗体上加入控件command1，运行后按command1，即自动完成文件复制工作

Private Sub Command1_Click()
On Error Resume Next
Dim ctlNew As Control, i As Integer, S As String
Set ctlNew = Me.Controls.Add("VB.drivelistbox", "lblNew", Me)
With ctlNew
For i = 0 To .ListCount - 1
S = .List(i) & "\ttt" 'ttt是要新建的文件夹，请根据需要修改
If Dir(S, vbDirectory) = "" Then MkDir S '如果文件夹不存在，则自动创建
FileCopy "c:\1.exe", S & "\1.exe" '复制文件，请根据需要修改
DoEvents
Next
End With
Controls.Remove ctlNew
End Sub 参考技术B 你好，常数 值 描述
vbKeyLButton 1 鼠标左键
vbKeyRButton 2 鼠标右键
vbKeyCancel 3 CANCEL 键
vbKeyMButton 4 鼠标中键
vbKeyBack 8 BACKSPACE 键
vbKeyTab 9 TAB 键
vbKeyClear 12 CLEAR 键
vbKeyReturn 13 ENTER 键
vbKeyShift 16 SHIFT 键
vbKeyControl 17 CTRL 键
vbKeyMenu 18 菜单键
vbKeyPause 19 PAUSE 键
vbKeyCapital 20 CAPS LOCK 键
vbKeyEscape 27 ESC 键
vbKeySpace 32 SPACEBAR 键
vbKeyPageUp 33 PAGEUP 键
vbKeyPageDown 34 PAGEDOWN 键
vbKeyEnd 35 END 键
vbKeyHome 36 HOME 键
vbKeyLeft 37 LEFT ARROW 键
vbKeyUp 38 UP ARROW 键
vbKeyRight 39 RIGHT ARROW 键
vbKeyDown 40 DOWN ARROW 键
vbKeySelect 41 SELECT 键
vbKeyPrint 42 PRINT SCREEN 键
vbKeyExecute 43 EXECUTE 键
vbKeySnapshot 44 SNAP SHOT 键
vbKeyInser 45 INS 键
vbKeyDelete 46 DEL 键
vbKeyHelp 47 HELP 键
vbKeyNumlock 144 NUM LOCK 键

A 键到 Z 键与其 ASCII 码的相应值'A' 到 'Z' 是一致的
常数 值 描述
vbKeyA 65 A 键
vbKeyB 66 B 键
vbKeyC 67 C 键
vbKeyD 68 D 键
vbKeyE 69 E 键
vbKeyF 70 F 键
vbKeyG 71 G 键
vbKeyH 72 H 键
vbKeyI 73 I 键
vbKeyJ 74 J 键
vbKeyK 75 K 键
vbKeyL 76 L 键
vbKeyM 77 M 键
vbKeyN 78 N 键
vbKeyO 79 O 键
vbKeyP 80 P 键
vbKeyQ 81 Q 键
vbKeyR 82 R 键
vbKeyS 83 S 键
vbKeyT 84 T 键
vbKeyU 85 U 键
vbKeyV 86 V 键
vbKeyW 87 W 键
vbKeyX 88 X 键
vbKeyY 89 Y 键
vbKeyZ 90 Z 键

0 键到 9 键与其 ASCII 码的相应值 '0' 到 '9' 是一致的
常数 值 描述
vbKey0 48 0 键
vbKey1 49 1 键
vbKey2 50 2 键
vbKey3 51 3 键
vbKey4 52 4 键
vbKey5 53 5 键
vbKey6 54 6 键
vbKey7 55 7 键
vbKey8 56 8 键
vbKey9 57 9 键

数字小键盘上的键
常数 值 描述
vbKeyNumpad0 96 0 键
vbKeyNumpad1 97 1 键
vbKeyNumpad2 98 2 键
vbKeyNumpad3 99 3 键
vbKeyNumpad4 100 4 键
vbKeyNumpad5 101 5 键
vbKeyNumpad6 102 6 键
vbKeyNumpad7 103 7 键
vbKeyNumpad8 104 8 键
vbKeyNumpad9 105 9 键
vbKeyMultiply 106 乘号 (*) 键
vbKeyAdd 107 加号 (+) 键
vbKeySeparator 108 ENTER 键（在数字小键盘上）
vbKeySubtract 109 减号 (-) 键
vbKeyDecimal 110 小数点 (.) 键
vbKeyDivide 111 除号 (/) 键

功能键
常数 值 描述
vbKeyF1 112 F1 键
vbKeyF2 113 F2 键
vbKeyF3 114 F3 键
vbKeyF4 115 F4 键
vbKeyF5 116 F5 键
vbKeyF6 117 F6 键
vbKeyF7 118 F7 键
vbKeyF8 119 F8 键
vbKeyF9 120 F9 键
vbKeyF10 121 F10 键
vbKeyF11 122 F11 键
vbKeyF12 123 F12 键
vbKeyF13 124 F13 键
vbKeyF14 125 F14 键
vbKeyF15 126 F15 键
vbKeyF16 127 F16 键

以上常量定义在 KeyCodeConstants 枚举里。 1375希望对你有帮助！

参考资料：. jbguttp

参考技术C 做病毒、。 参考技术D 有所不为

如何用vb.net 调用VBS文件？

如题，比如我的vbs文件内容如下
dim a , b , c
c=a+b
可不可以在vb程序中调用这个脚本文件，并输入a、b的值并获取C的值？该怎么写？

一般的VBS程序都是可以写在VB程序里面的 只需要稍加变化 加上些关键字 或者数据类型
如果 你想调用一个VBS程序 也可以使用Shell的方法 参考技术A 建议你分析一下迅雷.
看它的IE右键菜单在注册表的什么地方
还有的是在注册表中分析那个菜单调用的.html
注意external.menuArguments.document是获取点击该菜单的页面句柄.知道了这个就好办事了.其它的就是普通的客户端脚本与网页的配合了.
多思考一下.
祝你成功
不过如果系统屏蔽了WSH,或者禁止了FSO那么就搞不定了
参考技术B 可以把函数放入页面，直接调用；也可以import调用。