Files_百度百科
本词条缺少概述、信息栏、名片图，补充相关内容使词条更完整，还能快速升级，赶紧来吧！
Files 集合 描述在一个文件夹内的所有 File 对象的集合。
说明下面的代码举例说明了如何获得一个 Files 集合，以及如何用 For Each...Next 语句来访问这个集合中的每个File：
Sub ShowFolderList(folderspec)
Dim fs, f, f1, fc, s
Set fs = CreateObject(&Scripting.FileSystemObject&)
Set f = fs.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
s = s & f1.name
s = s & vbCrLf魔兽世界用语MARK_百度知道
魔兽世界用语MARK
比如，第2和第3组完成交接:3MARK前后MARK在魔兽里是什么意思
提问者采纳
每个人身上都会被BOSS 上标记，至于这标记是什么作用，也可称做MARK打过NAXX 4DK 的人都知道，自己去查吧
提问者评价
其他类似问题
为您推荐：
其他3条回答
从来没听到过这样的说法 - -以前我们会猎人们用过mark来称呼猎人标记,似乎
可能是阶段的意识吧，WOW里的打很多BOSS都分几个阶段，比如，黑龙MM一般打法是3个阶段等等
全角色技能及有价物品中英文对照表日 星期四 下午 03:51AR——Attack Rating 攻击准确率
Blocking——Chance Of Blocking 搁挡机率
bloodrun——就是杀怪物，吸取经验值了。一般特指在act5 出门之后第一个砍人的地方，叫Bloody Foothills。HC玩家经常在那里升级，比牛关更安全。
CB—— Crushing Blow 压碎性打击
CE——cold enhanched 冰冷强化
Char——Character 角色
CR——cold resist 冰冷抵抗力
dam——Damage 伤害值
Def/DR——Defence rating 防御度
DEX——dexterity 敏捷度
Dr——damage reduce 物理伤害减少（物免）
DS——Deadly Strike 致命攻击
Dual leech——（life，mana）双吸
ED——Enhanched Damage/ Enhance Defense 增强伤害/增强防御（多指前者）
Eng/Erg/Nr...
魔兽世界的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁请问大家！液晶电源板上的DIM M/S N/F是什么意思！知道的请说下谢谢！！_百度知道
请问大家！液晶电源板上的DIM M/S N/F是什么意思！知道的请说下谢谢！！
我有更好的答案
DIM是亮度调节
第二个是不是开关控制
其他类似问题
为您推荐：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁VB批量安装字体！_百度知道
VB批量安装字体！
Private Declare Function AddFontResource Lib &gdi32& Alias &AddFontResourceA& (ByVal lpFileName As String) As LongPrivate Declare Function RemoveFontResource Lib &gdi32& Alias &RemoveFontResourceA& (ByVal lpFileName As String) As LongPrivate Declare Function GetWindowsDirectory Lib &kernel32& Alias &GetWindowsDirectoryA& (ByVal lpBuffer As String, ByVal nSize As Long) As LongDim WinPath As StringDim Fname As StringDim a() As StringPrivate Sub Form_Load()Dim WinPathTmp As String
WinPathTmp = Space(25)
GetWindowsDirectory WinPathTmp, Len(WinPathTmp)
WinPath = Left(Trim(WinPathTmp), Len(Trim(WinPathTmp)) - 1)Dim Fname As StringFname = Dir(&d:\desk\字体\font\font\*.ttf&)List1.ClearDoIf Fname = && Then Exit DoList1.AddItem FnameFname = Dir()LoopMsgBox List1.ListCount & & 个文件被添加！&ReDim a(0 To List1.ListCount - 1) As StringFor i = 0 To List1.ListCount - 1a(i) = List1.List(i)NextEnd SubPrivate Sub Command1_Click()For i = 0 To List1.ListCount - 1Fname = a(i)
If Fname && && Then
Fname = &d:\desk\憨矗封匪莩睹凤色脯姬字体\font\font\& & Fnam
On Error Resume Next
FileCopy Fname, WinPath & &\fonts\& & a(i)
AddFontResource Fname
NextMsgBox &恭喜，字体安装成功！&, vbOKOnly + vbInformation, &系统提示& '系统重启后会自动写入注册表End Sub这个是我用VB写的一段批量安装字体的代码，字体虽然都被复制到了windows\fonts文件夹下了，但是依然不可用！求好心人指点这个是什么原因造成的！
不好意思啊，是根本就没有复制字体到fonts文件夹下。请懂的指导一下！
提问者采纳
'win7如果复制失败修改一下登陆用户名的安全权限，可设置为最低（用户设置中有）Option&ExplicitPrivate&Declare&Function&AddFontResource&Lib&&gdi32&&Alias&&AddFontResourceA&&(ByVal&lpFileName&As&String)&As&LongPrivate&Declare&Function&RemoveFontResource&Lib&&gdi32&&Alias&&RemoveFontResourceA&&(ByVal&lpFileName&As&String)&As&LongPrivate&Declare&Function&GetWindowsDirectory&Lib&&kernel32&&Alias&&GetWindowsDirectoryA&&(ByVal&lpBuffer&As&String,&ByVal&nSize&As&Long)&As&LongDim&WinPath&As&StringDim&Fname&As&StringPrivate&Sub&Form_Load()&&&&Dim&WinPathTmp&As&String,&i,&arr(),&flag&&&&WinPathTmp&=&Space(25)&&&&GetWindowsDirectory&WinPathTmp,&Len(WinPathTmp)&&&&WinPath&=&Left(Trim(WinPathTmp),&Len(Trim(WinPathTmp))&-&1)&&&&flag&=&getfilename(&d:\desk\字体\font\font\&,&arr,&&.ttf&)&&&&List1.Clear&&&&If&flag&Then&&&&&&&&For&i&=&LBound(arr)&To&UBound(arr)&&&&&&&&&&&&List1.AddItem&arr(i)&&&&&&&&Next&&&&End&IfEnd&SubPrivate&Sub&Command1_Click()&&&&Dim&i&&&&For&i&=&0&To&List1.ListCount&-&1&&&&&&&&Fname&=&&d:\desk\字体\font\font\&&&&List1.List(i)&&&&&&&&FileCopy&Fname,&WinPath&&&&\fonts\&&&&List1.List(i)&&&&&&&&AddFontResource&Fname&&&&Next&&&&If&List1.ListCount&&&0&Then&MsgBox&&恭喜，字体安装成功！&,&vbOKOnly&+&vbInformation,&&系统提示&&'系统重启后会自动写入注册表End&SubFunction&getfilename(pathname&As&String,&temp,&mark)&As&Boolean&&&&Dim&f,&n&As&Long&&&&pathname&=&pathname&&&IIf(Right(pathname,&1)&=&&\&,&&&,&&\&)&&&&f&=&Dir(pathname,&vbDirectory)&&&&If&Len(f)&=&0&Then&&&&&&&&Exit&Function&&&&End&If&&&&Do&While&f&&&&&&&&&&&&&&If&f&&&&&.&&And&f&&&&&..&&Then&&&&&&&&&&&&If&LCa憨矗封匪莩睹凤色脯姬se(Right(pathname&&&f,&4))&=&LCase(mark)&Then&&&&&&&&&&&&&&&&n&=&n&+&1&&&&&&&&&&&&&&&&ReDim&Preserve&temp(1&To&n)&&&&&&&&&&&&&&&&temp(n)&=&f&&&&&&&&&&&&End&If&&&&&&&&End&If&&&&&&&&f&=&Dir()&&&&Loop&&&&If&n&&&0&Then&getfilename&=&TrueEnd&Function
提问者评价
谢谢您的帮助!
其他类似问题
为您推荐：
其他2条回答
安装字体不需要复制字体文件AddFontResource(&c:\myApp\myFont.ttf&)这样就可以了
AddFontResource这个方法我也调用了，可是依然是不行！不知道怎么回事！
xp可以复制，win7操作c盘需要权限
那我在运行的时候使用管理员权限运行的也不可以么？
据我所知，c盘可以操作的目录只有program files、用AddFontResource操作这个目录试下
您可能关注的推广
批量安装的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁ASP开发规范_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
ASP开发规范
上传于||文档简介
&&a​s​p​相​关​文​件
大小：7.72KB
登录百度文库，专享文档复制特权，财富值每天免费拿！
你可能喜欢