（1）首先，楼主先新建一个excel，名称楼主自己写，怎样都行，然后将其打开。

（2）打开后按住Alt再按F11，这样就会打开vba代码编辑器

（3）点菜单栏上的“插入”，选择“模块”，这样在左下角就会出现一个“模块1”

（4）双击“模块1”，右边就会出现“模块1”的编辑界面，将以下代码复制，并粘贴到这个界面中，按F5运行。


			
1

			
2

			
3

			
4

			
5

			
6

			
7

			
8

			
9

			
10

			
11

			
12

			
13

			
14

			
15

			
16

			
17

			
18

			
19

			
20

			
21

			
22

			
23

			
24

			
25

			
26

			
27

			
28

			
29

			
30

			
31

			
32

			
33
			
			

			
Sub 遍历文件夹()

			
'Columns(1).Delete  

			
On Error Resume Next

			
Dim f As String

			
Dim file() As String

			
Dim i, k, x

			
x = 1

			
i = 1: k = 1

			
ReDim file(1 To i)

			
file(1) = InputBox("请输入要查找的文件夹：") & "\"

			
Do Until i > k

			
    f = Dir(file(i), vbDirectory)

			
        Do Until f = ""

			
            If InStr(f, ".") = 0 Then

			
                k = k + 1

			
                ReDim Preserve file(1 To k)

			
                file(k) = file(i) & f & "\"

			
            End If

			
            f = Dir

			
        Loop

			
    i = i + 1

			
Loop

			
For i = 1 To k

			
    f = Dir(file(i) & "*.*")

			
    Do Until f = ""

			
       'Range("a" & x) = f

			
       Range("a" & x).Hyperlinks.Add Anchor:=Range("a" & x), Address:= _

			
        file(i) & f, TextToDisplay:=f

			
        x = x + 1

			
        f = Dir

			
    Loop

			
Next

			
End Sub
			
		
（5）在出现的对话框中，将你要查找的文件的地址复制到对话框中，按确定，就完成了。

 

注：这里用的是excel2007版，如果楼主用的是其他版本，有可能存在代码不兼容问题。

 



图1.打开vba编辑器。

 



图2.运行代码。

 



图3.结果。

使用svn进行版本控制，每个文件夹下都有.svn文件夹，有些项目在脱离svn版本控制之后，想删除项目中所有的.svn文件夹，可用下面的方法进行快速删除：


1、打开要删除.svn文件的最外层文件夹，按ctrl+f,打开文件搜索窗口;

2、在窗口左边点击选择"所有文件和文件夹"，在"这里寻找"会自动选中刚才打开的"最外层文件夹",然后在"全部或部分文件名"中输入关键字".svn" ;

3、再点击展开"更多高级选项"中的前3项即"搜索系统文件夹"、"搜索隐藏的文件和文件夹"、"搜索子文件夹";

4、最后点击下面的搜索，搜索完后选中全部文件，再右键执行"删除"命令即可！

网上流传的2种方法↓
方法一：
1、Windows环境

将下面的代码保存为 kill-svn.bat文件，放到要删除.svn文件的目录下，双击运行即可

@echo on

@rem 删除SVN版本控制目录

@rem for /r . %%a in (.) do @if exist "%%a\.svn" @echo "%%a\.svn"

@for /r . %%a in (.) do @if exist "%%a\.svn" rd /s /q "%%a\.svn"

@echo completed

@pause
2、在linux下

find . -type d -name ".svn"|xargs rm -rf
方法二：

建立一个文本文件，取名为kill-svn.reg（扩展名由txt改为reg），文件的内容如下：
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Folder\shell\DeleteSVN]
@="Delete SVN Folders"
[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Folder\shell\DeleteSVN\command]

@="cmd.exe /c \"TITLE Removing SVN Folders in %1 && COLOR 9A && FOR /r \"%1\" %%f IN (.svn) DO RD /s /q \"%%f\" \""


保存之后，双击这个reg文件。成功后，在每一个文件夹上点击右键都会有一个“Delete SVN Folders”的选项，点击之后，既可以删除这个文件下（包括子文件夹）所有的.svn文件夹。

删除完成后，为了避免误操作，不小心把正处于版本管理中的.svn文件夹删除，最好把刚才的注册信息删除。删除方法是，打开注册表（在运行中用regedit命令），找到[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Folder\shell\DeleteSVN] ，把DeleteSVN这个项删除，即可。

any folder->organize->layout->menubar
 
这样就显示出所有的文件菜单来了。然后找到文件夹选项，然后选择打开隐藏文件。
 
然后有一个选项可以把这种改动应用到所有的文件夹，点这个选项，就在弹出的窗口的上半部，闪着蓝光的那个。

步骤如下：1、点开始-运行，输入\\192.168.1.101(此处IP表示共享文件的电脑)。2、确定以后即可打工共享电脑上的所有共享内容。这样就可以共享你电脑里的所有文件了。扩展资料：打开简单文件共享很简单，只要右键点击驱动器或者文件夹，然后选择属性，我们只要选中在网络中共享这个文件夹。共享以后，“允许网络用户更改我的文件”这一项是默认打开的，所以没有特殊必要的话，我们必须把它前面的勾去掉共享驱动器会先出现一些安全提示：然后点击共享驱动器，就会出现如图一一样的设置。开启GUEST帐户这一步很重要，xp默认GUEST帐户是没有开启的：要允许网络用户访问这台电脑，必须打开GUEST帐户。依次执行"开始－设置－控制面板－管理工具－计算机管理-－本地用户和组－用户"在右边的GUEST账号上单击右键，选"属性"然后去掉"账号已停用"选择，WindowsXP用网络用户登陆,用户名密码同在WindowsXP下刚输入的就行。如果还是不能访问，可能是本地安全策略限制该用户不能访问。在启用了GUEST用户或者本地有相应账号的情况下，点击"开始--设置--控制面板--计算机管理--本地安全策略"打开"本地安全指派--拒绝从网络访问这台计算机"的用户列表中如果看到GUEST或者相应账号请删除设置简单文件共享，网络上的任何用户都可以访问，无须密码，简单明了。参考资料：百度百科：共享文件
阅读全文 >