VB,怎么把一个文件夹中所有的文件的文件名导入到一个txt或者excel中?

Posted 2023-05-02

open app.path & "\dir.txt" for output as #1
d=dir("d:\tmp\*.*")
do until d=""
print #1,d
d=dir
loop
close #1

以上是把D:\tmp文件夹中的所有文件名写到当前目录的dir.txt文件中 参考技术A 可以直接用SHELL+DOS命令
用记事本做一个1.bat文件，内容是：tree/f e:\小视频 >>d:\2.txt
然后在VB里：
Shell "e:\1.bat", vbHide 参考技术B dim fs as filesystemobject
dim fsfolder as folder
dim fsfile as file
Dim xlApp As excel.Application
Dim xlBook As excel.Workbook
Dim xlSheet As excel.Worksheet
dim i as integer
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
Set fs = New FileSystemObject
set fsfolder =fs.getFolder("文件夹路径")
i=1
for each fsfile in fsfolder.files
xlSheet.cells(i,1) = fsfile.name
i=i+1
next
xlApp.visible=true
set fs =nothing
set fsfolder=nothing
set fsfile=nothing
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing追问

Dim xlApp As excel.Application用户定义类型未定义，我添加了引用Micrsoft Excel 11.0bject Library，还是不行，可否详解？

追答

我测试了，没报错。。按说你的11.0不会报错吧

追问

好了，从网上查这个和系统和注册表也有关系，幸亏今天稀里糊涂好了。。。谢谢

本回答被提问者采纳 参考技术C 我写过一个获得选定文件夹下文件目录并保存为TXT的程序,你需要可以发给你,留个邮箱

工具：把Mac上某个目录下所有文件移动到一层目录下

比如说，某个文件夹下有很多文件，并且层级很深。想要把这些文件都放到同一个文件夹下。

 变成这样

 

可以使用下面代码执行，一定要建立命令行项目。

#import "FileToOnePath.h"

/// 要处理的文件夹路径
static NSString *const FileToOnePathDirectoryPath = @"/Users/admin/Downloads/ULSetting";


@implementation FileToOnePath

+ (void)load 

    [self fileToOnePath];


// 文件挪到一个目录下
+ (void)fileToOnePath 

    NSString *filePath = FileToOnePathDirectoryPath;
    BOOL fileExist = [[NSFileManager defaultManager] fileExistsAtPath:filePath];
    if (!fileExist) 
        NSLog(@"文件不存在,结束");
    

    NSArray *array = [[NSFileManager defaultManager] subpathsAtPath:filePath];
    NSLog(@"%@",array);

    for (NSString *path in array) 

        NSString *fullPath = [filePath stringByAppendingPathComponent:path];

        BOOL isDir = NO;
        [[NSFileManager defaultManager] fileExistsAtPath:fullPath isDirectory:&isDir];
        /// 是文件夹, 不用处理,后面统一删除
        if (isDir) 
            continue;
        

        // 是文件
        NSError *error = nil;
        NSString *toPath = [filePath stringByAppendingPathComponent:path.lastPathComponent];
        [[NSFileManager defaultManager] moveItemAtPath:fullPath toPath:toPath error:&error];
        if (error) 
            NSLog(@"出错了 %@ ",error);
         else 
            NSLog(@"挪动成功 %@ %@",fullPath,toPath);
        
    

    for (NSString *path in array) 

        NSString *fullPath = [filePath stringByAppendingPathComponent:path];

        BOOL isDir = NO;
        [[NSFileManager defaultManager] fileExistsAtPath:fullPath isDirectory:&isDir];
        /// 是文件夹, 不用处理,后面统一删除
        if (isDir) 
            [[NSFileManager defaultManager] removeItemAtPath:fullPath error:nil];
        
    


@end