DisplayFile.java//*********************************File parentDirectory = null;//当前目录ArrayList [] file = null;//存放当前目录中所有的文件ArrayList [] directory = null;//存放当前目录中所有的目录String [] temp = null;//临时数组 存放当前目录中所有的文件和目录的绝...

V0.3 2008年6月1日增加“在选项窗口的‘全选’、‘全取消’”的功能。增加“在主窗口的将链接恢复到默认路径”的选项。V0.2 2008年5月23日增加“弹出式子窗口，用于添加项目并动态改变主窗口”的功能。对更改过的路径，加深背景色突出显示。V0.1 2008年5月23日测试通过“我的文档，我的音乐，我的视频，我的收藏，我的桌面”的测试。完成编程时动态增加选项功能。#Region;****参数创建于AutoIt3Wrapper_GUI****#AutoIt3Wrapper_Icon=..\工具\3.2.11.0.1\Aut2Exe\Icons\ce.ico#A...

#region 获取指定文件夹下所有子目录及文件(树形)        /****************************************         * 函数名称：GetFoldAll(string Path)         * 功能说明：获取指定文件夹下所有子目录及文件(树...

'////////////////////////////////////////////////FSO操作/////////////////////////////////////'判断文件夹是否存在Function FolderExits(Folder)Folder=Server.Mappath(Folder)Set FSO= Server.CreateObject("Scripting.FileSystemObject")IF FSO.FolderExists(Folder) Then   FolderExi...

strComputer = "."Set objWMIService = GetObject("winmgmts:" _    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")Set colFolders = objWMIService.ExecQuery _   ...

On Error Resume NextdtmTargetDate = "20020301000000.000000-420"strComputer = "."Set objWMIService = GetObject _    ("winmgmts:" & "!\\" & strComputer & "\root\cimv2")Set colFolde...

Option Explicit''''''''''''''说明'''''''''''''网盟-黑火制作，送给需要的朋友。'配置文件“Listfile.ini”的格式如下：'要删除什么(文件|目录)=要执行删除的文件夹=排除1;排除2;排除3............'配置文件可以有多行，以便对多个目录进行操作。'配置文件里以“/”开头的行为注释行。'排除多个内容时，使用分号“;”进行分隔。'↓↓↓ 配置文件例子：↓↓↓'/配置文件开始'目录=D:\=System Volume Information;网络游戏;单机游戏;小游戏'目录=C:\Program&...

[code]using System;using System.Collections.Generic;using System.Text;using System.IO;using System.Threading;namespace copefile{    class Program    {        static void Main(...

第一步:进入Windows的MS-DOS窗口(Windows 2000/XP叫命令行提示符)，进入要查找空文件夹的驱动器，执行: 　　dir /ad/b/s | sort /r >empties.bat。 　　小提示 　　[code]上面命令行中“|”的输入方法是按住Shift键按“\”键。  [/code]　　第二步:命令运行后，当前目录下会生成一个Empties.bat文件，其中包含了逆序排列的所有文件夹的清单。用Word或记事本打开该文件，把每一行内容分别放入一对英文引号之...

asp利用fso实现文件的移动function movefiles(sFolder,dFolder)    on error resume next    dim fso    set fso = server.createobject("scripting.filesystemobject")    if fso.folderexists(ser...

那天突然的一个灵感，是针对防盗链的正常上传的文件，若被人盗链则增加了自己服务器的负担，上次164.cc就因此被挂然后想想对策，目前各类防盗链程序也不少，不过使用也并不简单，还有就是不能免费……所以，只有自己先想办法。那么，现在看看标题，再想想防盗链，或许就有些眉目了我可以不定时的修改上传文件所在的文件夹名称，而本站程序是动态获得文件夹名称，这样原先盗用本站文件的站点会因路径的错误而找不到文件，从而也就实现了防盗链。那么，如何使用FSO修改文件夹的名称呢？一个简单的函数：[code]<% Function fldrename(nowfld,newfld) no...