锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net驱动器 vb驱动器列表框控件名词解释( 三 )

IT技术文件


FileAttr： FileAttr (文件号)
返回文件号对应文件的打开方式 。
GetDateTime： GetDateTime (Pathname)
返回文件被创建或修改的最后日期和时间 。
Free： FreeFile[(0|1)]
返回未被占用的文件号 ， Free或Free(0)返回1～255之间未占用的文件号，Free(1)返回256～511之间未占用的文件 。
Dir： Dir (Pathname [,Attributes])
测试指定路径是否有某文件 ， Attributes附加文件属性条件 ， 取值vbNormal、vbReadOnly、vbHidden、vbSystem、vbVolume、vbDirectory 。
Kill： Kill (文件名)
删除指定文件 ， 文件名可包含路径 。
FileCopy： FileCopy 源文件，目标文件
拷贝文件 。
Name： Name 旧文件名 As 新文件名
文件重命名 。前后路径不一致时，操作为移动文件并重命名 。
MkDir： MkDir path
新建文件夹 。
RmDir： Rmdir path
删除文件夹 。
ChDrive： ChDrive Drive
改变当前驱动器 ChDrive "D"
CurDir： CurDir [(driver)]
返回当前工作路径 ， 指定driver则返回目标驱动器的当前工作路径 。
举例：
'新建文件，并写入数据，关闭
Open "a.txt" For Output As #1
Print #1, "ABCDEFG"; vbCrLf; "HIJK"
Close #1
'打开文件 ， 并全部写入新文件 ， 关闭
Open "a.txt" For Input As #2
Open "b.txt" For Output As #3
Dim str As String
While (Not EOF(2))
Line Input #2, str
Print #3, str
Wend
Close
注：关于Visual Basic 6.0的文件操作资料来自于
如果您觉得我的回答帮助了您解决难题 ， 别忘了采纳哦，如果我的回答未能解决您的问题，您可以在互联网上寻找更多的解决方案！
vb(vb.net)能不能修改计算机中指定驱动器的盘符？ 我想在U盘插入时通过序列号识别指定设备并Sub RenameVolume()
'利用Shell函数在命令提示符下执行Diskpart命令的脚本，并存入日志文件
'达到替换逻辑盘符的目的
'在WindowsXp系统下测试成功
'获取临时文件路径
Temp = Environ("TEMP")"\"
'获取命令提示符路径
Cmd = Environ("ComSpec")
'设置脚本文件和日志文件路径
ScriptFile = Temp"DiskpartScript.txt"
ScriptLog = Temp"DiskpartScript.log"
'回车符和换行符
vbLfCr = vbLfvbCr
'脚本文件内容
'选择卷e
'移除盘符e
'分配盘符m
'退出Diskpart
ScriptTxt = "select volume e"vbLfvbCr_
"Remove letter = e"vbLfvbCr_
"assign letter = m"vbLfvbCr_
"exit"vbLfvbCr
'打开脚本文件并读取内容
Open ScriptFile For Output As #1
Print #1, ScriptTxt
Close #1
'打开错误处理
On Error Resume Next
'删除原有日志文件
Kill ScriptLog
'关闭错误处理
On Error GoTo 0
'执行脚本
ShellTxt = Cmd" /c ""diskpart.exe /S "ScriptFile""ScriptLog""""
Shell ShellTxt
'打开错误处理
On Error Resume Next
Do
Err.Number = 0
'打开日志文件并读取内容，因日志文件存取速度慢，必须以锁定方式打开，否则会出错
Open ScriptLog For Input Lock Read Write As #1
DoEvents
Loop Until Err.Number = 0
'关闭错误处理
On Error GoTo 0
'日志文件中含有中文字符，必须以InputB函数以字节方式读取，否则长度会超出
LogTxt = InputB(LOF(1), #1)
Close #1
'转换以字节方式读取的日志文件内容
LogTxt = StrConv(LogTxt, vbUnicode)
'如果日志中出现两次成功，则认为执行成功 ， 否则认为失败
If Len(LogTxt) - Len(Replace(LogTxt, "成功", "", 1)) = 4 Then
MsgBox "盘符替换成功！"

推荐阅读


上一篇：拍摄视频是什么格式，拍视频用什么格式的视频比较好

下一篇：视频号瑜伽直播，瑜伽教学直播