11问答网
所有问题
当前搜索:
vb打开文件夹的代码
VB
批量提取
文件夹
名称
答:
Private Sub Form_Load()Dim sF As String, c As Integer Text1.Text = ""sF = Dir(App.Path & "\", vbDirectory) ' 查找目录中第一个
文件夹
名称 Do While sF <> ""' 跳过当前的目录及上层目录 If sF <> "." And sF <> ".." Then If (GetAttr(sB + sF) And vbDirectory) =...
如何
用vb
探测一个
文件夹
是否
打开
答:
遍历所有由资源管理器
打开
的窗口,检测标题是否是该
文件夹的
路径名,是就是打开了。
VB
读取
文件夹
里文件名称到EXCEL
答:
For i = 0 To File1.ListCount - 1 File1.List(i) = Cells(i, 1)Next i 你这个是让excel单元格里的内容变成file1列表的内容吧 另外,单元格的下标要从1开始的 换成cells(i+1,1)=file1.list1(i)看看
VB
中新建
文件夹的
命令
答:
Sub s() pth = "d:\test"'新建
文件夹
所在的路径 fd = "a"'新建文件夹名称 t = Dir(pth, vbDirectory) If t = "" Then MsgBox "路径不存在!": Exit Sub t = Dir(pth & "\" & fd, vbDirectory) If t <> "" Then MsgBox "文件夹已存在!": Exit Sub ...
VB
中如何实现创建新的
文件夹
答:
Option Explicit Dim fso As New FileSystemObject Dim newfolder As Folder 上面在通用中写入 下面建立一个按钮打入
代码
'后面是解释 Private Sub Command1_Click()Set newfolder = fso.GetFolder(InputBox("文件要建立在哪个盘?如c:")) '这边也可以用inputbox("要建立的
文件夹
!")'创建文件夹 If...
用VB如何
逐渐显示
文件夹
目录下的文件名
答:
n + 1 If n > UBound(filename) Then MsgBox "已无图片!"Exit Sub End If Text1 = filename(n)Picture1.Picture = LoadPicture(filename(n))End Sub Private Sub Form_Load()If Not getfilename("d:\DATA", filename) Then MsgBox "目录或
文件
未找到!"Exit Sub End If End Sub ...
如何
用vb
计算
文件夹
内所有文件(包括子文件夹)
答:
调用windows的Dir命令,生成一个列表
文件
,例如要计算C:\windows下有多少个文件和目录:Dir C:\windows\*.* /s >winList.txt 等命令执行完毕后,
打开
winlist.txt,最后显示的两行就是结果。所列文件总数:10709 个文件 3,328,172,320 字节 2684 个目录 1,155,395,584 可用字节 ...
求
vb
中自动生成以年为文件名的
文件夹的代码
答:
MkDir App.Path & "\" & Year(Now) & "\" & Month(Now)For di = 1 To Day(DateSerial(Year(Now), Month(Now) + 1, 1) - 1)MkDir App.Path & "\" & Year(Now) & "\" & Month(Now) & "\" & di Next End If 补充:调用里面
文件的
方式如下:Open "e:\czjl\" & yy ...
vb如何
取某个
文件夹的
文件列表到list1
答:
直接使用file控件就可以了 或者把file控件的内容倒入到list1中
VB怎么
获取当前被激活的
文件夹
目录?
答:
vb
语法不熟,只能说下思路。都是使用winapi 资源管理器有一个显示路径的编辑框,先用工具,如 Spy4Win 获得资源管理器的类名,和显示路径的那个edit(Win10系统和xp系统应该不一样)用winapi GetForegroundWindow 获得系统当前激活的窗口句柄 然后通过 GetClassName 获得该句柄的类名,再判断是否是资源...
棣栭〉
<涓婁竴椤
6
7
8
9
11
12
13
14
10
15
涓嬩竴椤
灏鹃〉
其他人还搜