1. MFC我想遍历某个文件夹的所有文件并获取文件大小，再把它们加起来
RefreshDataTemp(strPath);} //递归调用
这里你也写了，是递归调用，那么也就是子目录的统计，是在另一个（同名）函数调用中完成的，而size和Size都是局部变量，不会传递到上一层函数调用。
解决方法：Size 作为返值或全局变量，tr的三行语句放在这个函数之外，不参与递归。
2. python 如何通过储存在CSV文件中第一列的文件名查找在电脑指定目录的jpg文件并移动到另外一个指定文件夹
python 移动文件或文件夹操作。python中对文件、文件夹操作时经常用到的os模块和shutil模块常用方法。
1.得到当前工作目录，即当前Python脚本工作的目录路径: os.getcwd()
2.返回指定目录下的所有文件和目录名:os.listdir()
3.函数用来删除一个文件:os.remove()
4.删除多个目录：os.removedirs(r“c：\python”)
5.检验给出的路径是否是一个文件：os.path.isfile()
6.检验给出的路径是否是一个目录：os.path.isdir()
7.判断是否是绝对路径：os.path.isabs()
8.检验给出的路径是否真地存:os.path.exists()
9.返回一个路径的目录名和文件名:os.path.split() eg os.path.split(‘/home/swaroop/byte/code/poem.txt’) 结果：(‘/home/swaroop/byte/code’, ‘poem.txt’)
10.分离扩展名：os.path.splitext()
11.获取路径名：os.path.dirname()
12.获取文件名：os.path.basename()
13.运行shell命令: os.system()
14.读取和设置环境变量:os.getenv() 与os.putenv()
15.给出当前平台使用的行终止符:os.linesep Windows使用’\r\n’，Linux使用’\n’而Mac使用’\r’
16.指示你正在使用的平台：os.name 对于Windows，它是’nt’，而对于Linux/Unix用户，它是’posix’
17.重命名：os.rename(old， new)
18.创建多级目录：os.makedirs(r“c：\python\test”)
19.创建单个目录：os.mkdir(“test”)
20.获取文件属性：os.stat(file)
21.修改文件权限与时间戳：os.chmod(file)
22.终止当前进程：os.exit()
23.获取文件大小：os.path.getsize(filename)
文件操作方法大全：
1.os.mknod(“test.txt”) #创建空文件
2.fp = open(“test.txt”,w) #直接打开一个文件，如果文件不存在则创建文件
3.关于open 模式：
w：以写方式打开，
a：以追加模式打开 (从 EOF 开始, 必要时创建新文件)
r+：以读写模式打开
w+：以读写模式打开 (参见 w )
a+：以读写模式打开 (参见 a )
rb：以二进制读模式打开
wb：以二进制写模式打开 (参见 w )
ab：以二进制追加模式打开 (参见 a )
rb+：以二进制读写模式打开 (参见 r+ )
wb+：以二进制读写模式打开 (参见 w+ )
ab+：以二进制读写模式打开 (参见 a+ )
fp.read([size]) #size为读取的长度，以byte为单位
fp.readline([size]) #读一行，如果定义了size，有可能返回的只是一行的一部分
fp.readlines([size]) #把文件每一行作为一个list的一个成员，并返回这个list。其实它的内部是通过循环调用readline()来实现的。如果提供size参数，size是表示读取内容的总长，也就是说可能只读到文件的一部分。
fp.write(str) #把str写到文件中，write()并不会在str后加上一个换行符
fp.writelines(seq) #把seq的内容全部写到文件中(多行一次性写入)。这个函数也只是忠实地写入，不会在每行后面加上任何东西。
fp.close() #关闭文件。python会在一个文件不用后自动关闭文件，不过这一功能没有保证，最好还是养成自己关闭的习惯。 如果一个文件在关闭后还对其进行操作会产生ValueError
fp.flush() #把缓冲区的内容写入硬盘
fp.fileno() #返回一个长整型的”文件标签“
fp.isatty() #文件是否是一个终端设备文件(unix系统中的)
fp.tell() #返回文件操作标记的当前位置，以文件的开头为原点
fp.next() #返回下一行，并将文件操作标记位移到下一行。把一个file用于for … in file这样的语句时，就是调用next()函数来实现遍历的。
fp.seek(offset[,whence]) #将文件打操作标记移到offset的位置。这个offset一般是相对于文件的开头来计算的，一般为正数。但如果提供了whence参数就不一定了，whence可以为0表示从头开始计算，1表示以当前位置为原点计算。2表示以文件末尾为原点进行计算。需要注意，如果文件以a或a+的模式打开，每次进行写操作时，文件操作标记会自动返回到文件末尾。
目录操作方法大全
1.创建目录
os.mkdir(“file”)
2.复制文件：
shutil.file(“oldfile”,”newfile”) #oldfile和newfile都只能是文件
shutil.(“oldfile”,”newfile”) #oldfile只能是文件夹，newfile可以是文件，也可以是目标目录
3.复制文件夹：
4.shutil.tree(“olddir”,”newdir”) #olddir和newdir都只能是目录，且newdir必须不存在
5.重命名文件(目录)
os.rename(“oldname”,”newname”) #文件或目录都是使用这条命令
6.移动文件(目录)
shutil.move(“oldpos”,”newpos”)
7.删除文件
os.remove(“file”)
8.删除目录
os.rmdir(“dir”) #只能删除空目录
shutil.rmtree(“dir”) #空目录、有内容的目录都可以删
9.转换目录
os.chdir(“path”) #换路径
四、文件综合操作实例
将文件夹下所有图片名称加上’_fc’
3. 用dos 命令 看文件大小
dir 文件路径
就行了，比如F盘有个123.txt的文本文档，要看它有多大只需在dos下输入：dir F:\123.txt
就行了，回答另外给你个数据，1MB=1024kb，1kb=1024b，这里的b就是字节的意思，也可以说1kb=1024字节。
4. bat脚本中怎么获取文件的大小
如果不用for命令，dir也可以，不过显示出来的结果可能不是你愿意看到的，虽然能显回示出大小，但太死板了，答文件无论多大都是以字节为单位，无法进行转换，如果文件很大的话会显示比较长的数字串，文件大小不能很直观的体现出来，而且还显示出许多其他的一些信息，但如果用for语句的话就比单独用dir优越得多，以上这些问题都能解决掉，而且还可以加入一些条件语句使之更加灵活适用，如果一次显示包含多个文件时就需要for和dir组合使用了，dir加个/s可以显示目录中所有文件及文件夹（不包括隐藏的），再加/a就包括隐藏文件与文件夹了，总之用dir列出目录中所有文件，然后让for来提取最后执行相关命令。
5. 怎么解除asp上传文件大小的限制大概会有是什么样的语句
ASP上传文件大小限制语句常见形式：
upFileSize=307200 '设置文件限制为300k=300*1024KB=307200B
按照这个语句就可以设定，版
另外别忘了修改权IIS默认大小限制，IIS是默认限制200k的，若不取消这个限制，ASP的限定即使放开了，也很难生效的
6. vba中要获取文件夹里excel文件的数量，要用什么语句
1.GetAttr 函数
语法：GetAttr(pathname)
功能：获取一个文件、目录、或文件夹的属性。返回一个 Integer值。
返回值
由 GetAttr 返回的值，是下面这些属性值的总和：
常数 值 描述
vbNormal 0 常规
vbReadOnly 1 只读
vbHidden 2 隐藏
vbSystem 4 系统文件
vbDirectory 16 目录或文件夹
vbArchive 32 存档文件
vbalias 64 指定的文件名是别名。只在Macintosh中可用。
说明：若要判断是否设置了某个属性，在 GetAttr 函数与想要得知的属性值之间使用 And 运算符与逐位比较。如果所得的结果不为零，则表示设置了这个属性值。
示例：
Debug.Print GetAttr("F:\test.txt") '若为存档文件，在立即窗口可看到值为32
Debug.Print GetAttr("F:\test.txt") '将属性—高级—可存档文件的勾去掉后，值为0
为判断一个文件是否只读，可用下法:
Debug.Print GetAttr("F:\test.txt") And vbReadOnly
若值非零，说明时只读的。
2.复制
'
' （1）. 在不需要逐个打开工作簿的情况下,将其有效工作表依次复制到本工作簿的最后.
' 新工作表名为:原工作簿名_原工作表名
'
' Sub 复制工作表()
Dim MyObject As Object
Dim strPath As String, strFileName As String, strMyName As String
Dim shtSheet As Worksheet, strShtName As String
Dim intCount As Integer, intShtCount As Integer, i As Integer
Application.ScreenUpdating = False
strPath = ThisWorkbook.Path
strMyName = ThisWorkbook.Name
intShtCount = ThisWorkbook.Sheets.Count
With Application.FileSearch
.NewSearch
.LookIn = strPath
.SearchSubFolders = False
.Filename = ".xls"
.FileType = msoFileTypeOfficeFiles
If .Execute() > 0 Then
intCount = .FoundFiles.Count
For i = 1 To intCount
strFileName = Replace(.FoundFiles(i), strPath & "\", "")
If strFileName <> strMyName Then
Set MyObject = GetObject(strPath & "/" & strFileName)
'下面进行复制工作
For Each shtSheet In MyObject.Worksheets
strShtName = shtSheet.Name
If MyObject.Sheets(strShtName).UsedRange.Count > 1 Then
MyObject.Sheets(strShtName).Copy After:=ThisWorkbook.Sheets(intShtCount)
intShtCount = intShtCount + 1
'重新命名
strShtName = Replace(strFileName, ".xls", "_") & strShtName
ThisWorkbook.Sheets(intShtCount).Name = strShtName
ThisWorkbook.Sheets("目录").Cells(i + 1, 1) = strShtName
End If
Next shtSheet
End If
Next i
Else
MsgBox "没有找到符合指定文件，请修改参数后重新搜索！", ,"提示"
End If
End With
ThisWorkbook.Sheets("目录").Select
Application.ScreenUpdating = True
End Sub
'
'（2） 逐个打开同一目录下的所有工作簿,将其有效工作表依次复制到本工作簿的最后.复制完后关闭它.
' 新工作表名为:原工作簿名_原工作表名
'
Sub 复制工作表_2()
Dim MyObject As Object
Dim strPath As String, strFileName As String, strMyName As String
Dim shtSheet As Worksheet, strShtName As String
Dim intCount As Integer, intShtCount As Integer, i As Integer
Application.ScreenUpdating = False
strPath = ThisWorkbook.Path
strMyName = ThisWorkbook.Name
intShtCount = ThisWorkbook.Sheets.Count
With Application.FileSearch
.NewSearch
.LookIn = strPath
.SearchSubFolders = False
.Filename = ".xls"
.FileType = msoFileTypeOfficeFiles
If .Execute() > 0 Then
intCount = .FoundFiles.Count
For i = 1 To intCount
strFileName = Replace(.FoundFiles(i), strPath & "\", "")
If strFileName <> strMyName Then
'Workbooks.Open Filename:=strPath & "/" & strFileName
Set MyObject = GetObject(strPath & "/" & strFileName)
'下面进行复制工作
For Each shtSheet In Workbooks(strFileName).Worksheets
strShtName = shtSheet.Name
If Workbooks(strFileName).Sheets(strShtName).UsedRange.Count > 1 Then
Workbooks(strFileName).Sheets(strShtName).Copy After:=ThisWorkbook.Sheets(intShtCount)
intShtCount = intShtCount + 1
'重新命名
strShtName = Replace(strFileName, ".xls", "_") & strShtName
ThisWorkbook.Sheets(intShtCount).Name = strShtName
ThisWorkbook.Sheets("目录").Cells(i + 1, 1) = strShtName
End If
Next shtSheet
'Workbooks(strFileName).Close
End If
Next i
Else
MsgBox "没有找到符合指定文件，请修改参数后重新搜索！", ,"提示"
End If
End With
ThisWorkbook.Sheets("目录").Select
Application.ScreenUpdating = True
End Sub