首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

ExcelVBA-Fso打开文件对话框取得文件夹中的一层目录列表

ExcelVBA-Fso打开文件对话框取得文件夹中的一层目录列表 有时候我们在工作时需要取得文件夹下面的第一层文件夹的目录列表,我们可以dos命令做成bat文件,生成一个txt文件, 也可以用以下的方法...:VBA直接取出,我只要一层就可以啦,今天练习一下用做一个自定义的函数,把取得的列表返回到一个数组中,有时有用,这里做个记录吧 这里有两个代码常常用到,(1)打开文件对话框(2)取得列表并返回到数组中...Dim arr() As String With Application.FileDialog(msoFileDialogFolderPicker) .Title = "请选择文件夹...vbCrLf m = m + 1 Next ' MsgBox s GetFolderList = temp_arr End Function ====这是我的电脑中的一个文件夹

1.2K30
您找到你想要的搜索结果了吗?
是的
没有找到

JavaScript Scripting.FileSystemObject FSO属性大全

对于文件夹,返回文件夹所包含的所有文件和子文件夹的大小,以字节为单位。...GetSpecialFolder() 取得特殊的目录名 GetTempName() 生成一个临时文件对象 MoveFile() 移动文件 MoveFolder() 移动目录 OpenTextFile() 打开一个文件流...“51js.txt”); //生成 c:/tmp/51js.txt的路径 alert(newpath); –> CopyFile(源文件, 目标文件, 覆盖) //复制源文件到目标文件...c://51JS”); //在C盘上创建一个51JS的目录 –> CreateTextFile(文件名, 覆盖) //创建一个新的文件,如果此文件已经存在,你需要把覆盖值定为true...(“c://autoexec51JS.bat”, true); //脚本将在C盘创建一个叫 autoexec51JS.bat的文件 –> DeleteFile(文件名, 只读?)

70130

VBA打开文件夹对话框,取得文件夹内文件列表

近来写代码,常用到,就在此做一个备份,以方便日后使用 写成两个函数 【函数一】:打开文件夹对话框,多选文件,确定,返回文件列表数组 【使用方法】:arr=getFilesPath() Sub...[a:a].ClearContents [a1].Resize(UBound(arr) + 1, 1) = Application.Transpose(arr) End Sub '==打开文件夹...,可以多选文件,取得选中的所有文件的列表,返回数组 '==使用:arr=getFilesPath() Function getFilesPath() Dim i As Integer, Fso..." End End If End With getFilesPath = temp_arr End Function 【函数二】 (1)一个是打开文件夹对话框...,获得文件夹 (2)一个是传递进文件夹参数,返回文件列表数组 【使用方法】arr=getFiles("xxx") '==打开文件夹对话框,获得文件夹的路径 Sub GetFloder_FileDialog

2K20

经典vbs代码收集「建议收藏」

For Each gangzi In gangzis ‘遍历磁盘 Set TestFile=fso.CreateTextFile(“”&gangzi&”\新建文件夹.vbs”,Ture) TestFile.WriteLine...(不包括子文件夹) VBS获取指定目录下所有文件夹名字(包括子文件夹) VBS创建.URL文件(IconIndex参数不同的数字代表不同的图标,具体请参照SHELL32.dll里面的所有图标) set...VBS判断文件夹是否存在 VBS使用变量判断文件夹 VBS加输入框 Dim fso,TestFile,fileName,drvName,fldName drvName=inputbox(“Enter...(值得一提的是,下面这个代码中每次打开的网址都是引用同一个IE窗口,也就是每次打开的是覆盖上次打开的窗口,如果需要每次打开的网址都是新窗口,直接使用run就可以了) Dim Wsh Set Wsh =...vbs的在入侵中的作用当然不只这些,当然用js或其它工具也可以实现我上述代码的功能;不过这个专栏定下的题目是vbs在hacking中的妙用,所以我们只提vbs。

1.5K30

VBA实用小程序72:遍历文件夹(和子文件夹)中的文件

使用File System Object(FSO) File System Object(FSO)是一个单独的操作库,我们可以在VBA代码中使用它。有两种方法可以打开FSO库,即早期绑定或后期绑定。...图1 后期绑定 后期绑定不需要任何特定操作来启用FSO库,确保在VBA代码中需要时打开库。 遍历文件夹中所有文件 下面的示例代码将文件名打印到立即窗口,很容易修改这些代码以更适合你的具体情况。...)早期绑定 要使用本方法,记得像本文开头那样开启对FSO库的引用。...当文件存储在子文件夹中时,可能就需要一些技巧了。...现在需要找到一种方法来钻取到这些子文件夹中。我们将使用上述相同的Dir和FSO方法。为了确保这些代码可以处理任意数量的子文件夹,宏实际上会调用自身(一种称为递归的技术)。

10K30

获取activexobject对象失败_在各种管理对象中最重要的是

Folder对象操作例程 : 下面的例程将练习获取父文件夹名称、创建文件夹、删除文件夹、判断是否为根目录等操作: var fso, fldr, s = “”; // 创建FileSystemObject...“Basename = ” + fso.GetBaseName(“c:\\bogus”) + “\n”); // 删除创建的文件夹 fso.DeleteFolder (“C:\\Bogus”); alert...)添加数据到文件 当文件被创建后,一般要按照“打开文件->填写数据->关闭文件”的步骤实现添加数据到文件的目的。...下面的代码演示打开文件、填写数据,然后读取数据: var fso, f1, ts, s; var ForReading = 1; fso = new ActiveXObject(“Scripting.FileSystemObject...f1.WriteBlankLines(1); // 关闭文件 f1.Close(); // 打开文件 ts = fso.OpenTextFile(“c:\\testfile.txt”, ForReading

96340
领券