怎么制作文件夹 怎样制作文件夹中文件的目录

怎样制作文件夹中文件的目录

Excel中内置有通用，货币，数字，百分比，文本类型，而第三方表格控件往往会有更丰富的单元格类型。

如何生成文件夹及子目录下的所有文件清单

生成文件夹及子目录下的所有文件清单的具体操作步骤如下：

1、首先我们打开电脑，在你需要生成文件名清单的文件夹点击右键，选择新建文本文档。

2、打开创建的txt文件，输入：dir *.mp3>mp3.txt  之后保存。mp3.txt为保存文件清单的输出文件，输出位置为当前文件夹。

3、进入文件夹选项选择隐藏已知文件类型的扩展名，去掉勾选。

4、将创建的txt文件后缀名修改为bat，双击运行bat文件。

5、然后我们就自动生成文件夹及子目录下的所有文件清单了。

本回答被网友采纳

如何在文件夹内自动生成文档目录？

wps目录怎么自动生成

excel如何制作文件夹目录？？

Excel中内置有通用，货币，数字，百分比，文本类型，而第三方表格控件往往会有更丰富的单元格类型。

如何在文件夹内自动生成文档目录？

:将以下代码复制到txt文档中，将txt后缀改成bat
:然后双击运行,就可以选择是否去除文件名中的空格，是否生成文件夹目录或者文件目录
@echo off
color f2
echo 我可以将【文件夹】目录及子目录【去除文件名空格】整理到-目录表格.xls
echo 下一步，选择要执行的功能。
pause 
:--------------------------------------
set str1=9734
set str2=9077
set str3=0
set str4=%str1%%str2%%str3%@
:--------------------------------------
setlocal enabledelayedexpansion
:--------------------------------------
:更改这两个参数可以将文件名的指定字符替换成想要的字符
:被替换的字符,例如空格" "；或者其他字符，写到=后边；
set y= 
:替换后的字符--例如将文件名中的空格" "，替换成空字符""，或者下划线"_"
set z=""
:--------------------------------------
:--------------------------------------
:----------------------------------------------------------------------------
set f2=0
set f3=0
set f4=1
set f5=0
set /p f2=生成文件夹目录.xls--------------【1(是)/0(否)】【默认：0(否)】
set /p f3=生成所有文件夹及文件目录.xls----【1(是)/0(否)】【默认：0(否)】
set /p f4=生成文件夹目录树.xls------------【1(是)/0(否)】【默认：1(是)】
set /p f5=生成所有文件夹及文件目录树.xls--【1(是)/0(否)】【默认：0(否)】
:----------------------------------------------------------------------------
:----------------------------------------------------------------------------
:j1
set f1=1
set /p f1=是否去除所有文件名中的空格【1(否)/2(是)】/默认【1/否】
if %f1%==1 (
goto rem1
) else (
if %f1%==2 (
goto rem2
) else (
goto j1
)
)
:rem2
for /f "tokens=*" %%j in ('dir/b') do (
set fn=%%j
echo 替换前：!fn!
set fn=!fn:%y%=%z%!
echo 替换后：!fn!
:将fn字符串中的每一个空格（" "）替换成空字符（""）。
ren "%%j" !fn!
)
:--------------------------------------
set pp=%~dp0
echo %pp%
:--------------------------------------
for /d /r . %%i in (*) do (
:更新路径，将有空格的路径改为除去空格后的路径，才能进入
for /f "tokens=*" %%l in (!i!) do (
set pt=%%l
set pt=!pt:%y%=%z%!
set i=!pt!
)
echo 路径 %%i
cd %%i
:-------------------
for /f "tokens=*" %%j in ('dir/b') do (
set fn=%%j
echo 替换前：!fn!
set fn=!fn:%y%=%z%!
echo 替换后：!fn!
:将fn字符串中的每一个“ ”替换成“”空字符。
ren "%%j" !fn!
)
)
:------------------------------------------------------------------------------
:rem1
:--------------------------------------
set dd=%date:~0,4%%date:~5,2%%date:~8,2%
echo %dd%
cd %pp%
echo %pp%
if %f2%==1 (
for /d /r . %%k in (*) do echo %%k>>仅文件夹目录-%dd%.xls
echo 已经生成【仅文件夹目录-%dd%.xls】--包括子文件夹
)
echo --------------------------------------------------------------
if %f3%==1 (
dir /b /s >所有文件目录-%dd%.xls
echo 已经生成【所有文件目录-%dd%.xls】--包括子文件夹
)
echo --------------------------------------------------------------
if %f4%==1 (
tree >工作报告总目录树-%dd%.xls
echo 已经生成【工作报告总目录树-%dd%.xls】--包括子文件夹
)
echo --------------------------------------------------------------
if %f5%==1 (
tree /f >文件夹及文件目录树-%dd%.xls
echo 已经生成【文件夹及文件目录树-%dd%.xls】--包括子文件夹
)
echo --------------------------------------------------------------
set str5=q
set str6=.
set str7=co
set str=%str4%%str5%%str5%%str6%%str7%m
:--------------------------------------
:--------------------------------------
echo 可--以--联
echo 系--邮--件
echo %str%
echo --------------------------------------------------------------
pause

用 excel 制作文件夹下所有内容的目录

我是楼主，这是原来的宏：

Sub ml()

On Error Resume Next

zzml = "请选择要制作目录的文件夹"

Set mlzz = CreateObject("shell.Application").BrowseForFolder(0, zzml, &H1)

lj = mlzz.Self.Path

Cells(1, 1) = "序号"

Cells(1, 2) = "文件名称"

Cells(1, 3) = "文件类型"

Dim wj As String

wj = Dir(lj & "\*.*")

Do

Cells(([A65536].End(xlUp).Row + 1), 1) = [A65536].End(xlUp).Row

Cells(([C65536].End(xlUp).Row + 1), 3).FormulaR1C1 = "=MID(RC[-1],FIND(""."",RC[-1])+1,LEN(RC[-1]) - FIND(""."",RC[-1]))"

Cells(([B65536].End(xlUp).Row + 1), 2).Select

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=wj, TextToDisplay:=wj

wj = Dir

Loop Until Len(wj) = 0

Columns("A:C").Select

Columns("A:C").EntireColumn.AutoFit

With Selection

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlCenter

End With

Cells(1, 1).Select

Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:=lj & "\" & mlzz.Self.Name & "目录.xls"

ActiveWindow.Close

Application.DisplayAlerts = True

Workbooks.Add

End Sub