遍历文件夹下的文件名称

部署运行你感兴趣的模型镜像
package test;

import java.io.File;
import java.io.FileFilter;

public class Test {

	/**
	 * @param args
	 */
	public static void main(String[] args) {
		String path = "C:\\";
		File dir = new File(path);
		if (dir.exists() && dir.isDirectory()) {
			File fv[] = dir.listFiles(new FileFilter() {
				public boolean accept(File f) {
					return f.isFile();
				}
			});
			for (File f : fv) {
				System.out.println(f.getName());
			}
		}
	}

	private static String[] listFiles(String productID) {
		String path = "C:\\";
		File dir = new File(path);
		if (dir.exists() && dir.isDirectory()) {
			File fv[] = dir.listFiles(new FileFilter() {
				public boolean accept(File f) {
					return f.isFile();
				}
			});
			String fileNames[] = new String[fv.length];
			for (int i = 0; i < fv.length; i++) {
				fileNames[i] = fv[i].getName();
			}
			return fileNames;
		}
		return new String[0];
	}
}

 

您可能感兴趣的与本文相关的镜像

Stable-Diffusion-3.5

Stable-Diffusion-3.5

图片生成
Stable-Diffusion

Stable Diffusion 3.5 (SD 3.5) 是由 Stability AI 推出的新一代文本到图像生成模型,相比 3.0 版本,它提升了图像质量、运行速度和硬件效率

### 使用VBA遍历指定文件夹下的所有文件 以下是通过 `Dir` 函数实现遍历指定文件夹下所有文件的示例代码: ```vba Sub ListAllFiles() Dim folderPath As String Dim fileName As String Dim fileArray() As String Dim i As Integer ' 设置目标文件夹路径 folderPath = "C:\Your\Folder\Path\" ' 替换为目标文件夹的实际路径[^1] If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" End If ' 初始化变量 ReDim fileArray(0) i = 0 ' 获取第一个文件名 fileName = Dir(folderPath & "*.xls*") ' 可更改扩展名为其他类型,如 *.txt 或 *.* 表示所有文件 ' 循环读取文件直到没有更多文件 Do While fileName <> "" ReDim Preserve fileArray(i) fileArray(i) = fileName i = i + 1 fileName = Dir ' 继续获取下一个文件 Loop ' 输出文件列表到立即窗口 (Ctrl+G 打开) For i = LBound(fileArray) To UBound(fileArray) Debug.Print fileArray(i) Next i End Sub ``` 上述代码实现了以下功能: - 定义了一个字符串变量 `folderPath` 来保存要遍历的目标文件夹路径。 - 利用 `Dir` 函数检索该文件夹内的 `.xls` 和 `.xlsx` 文件,并将其名称存入动态数组 `fileArray()` 中。 - 最终将这些文件名打印至 VBA 的 **立即窗口**。 如果需要递归遍历文件夹,则可以采用更高级的方式——利用 File System Object(FSO)。下面是一个基于 FSO 实现递归遍历的例子: ```vba Sub RecursiveListFiles() Dim fso As Object Dim folder As Object Dim subFolder As Object Dim fileItem As Object Set fso = CreateObject("Scripting.FileSystemObject") Set folder = fso.GetFolder("C:\Your\Folder\Path\") ' 替换为目标文件夹的实际路径[^2] Call ProcessFolder(folder) ' 处理当前文件夹及其所有子文件夹中的文件 For Each subFolder In folder.SubFolders Call ProcessFolder(subFolder) Next subFolder End Sub Sub ProcessFolder(currentFolder As Object) Dim fileItem As Object For Each fileItem In currentFolder.Files Debug.Print fileItem.Path ' 将文件全路径输出到立即窗口 Next fileItem End Sub ``` 此方法的优势在于能够自动处理嵌套层次较深的目录结构。它会逐一访问每个子文件夹并提取其中的所有文件信息。 #### 注意事项 - 如果希望支持压缩包解压后再操作内部文件,请参阅相关内容[^3]。 - 若要进一步优化脚本逻辑,比如仅针对特定条件筛选某些工作簿再执行后续动作,可参考类似技巧[^4]。
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值