filepath = "d:\musictxt\melidy.txt" set fso = CreateObject("Scripting.FileSystemObject")set out = fso.CreateTextFile(filepath,True,True)set out = fso.OpenTextFile(filepath,2)set sh1 = createObject("WScript.Shell")musicfolder =sh1.ExpandEnvironmentStrings("%USERPROFILE%\Music")if not fso.folderexists(musicfolder) thenmusicfolder = fso.BuildPath(sh1.SpecialFolders("MyDocuments"),"My Music")end ifwscript.echo"Searching",musicfolder,"for MP3 and WHA file ..."nfiles = 0listdir""out.Closewscript.echo "Listed",nfiles,"files"'the main purpose is to retrieve the sub listdir ( path)dim fldr, file, folder, extnif fso.folderexists(fso.BuildPath( musicfolder, path)) then set fldr = fso.GetFolder(fso.BuildPath( musicfolder, path)) for each file in fldr.Filesextn = ucase(fso.GetExtensionName(file.name))if extn = "MP3" or extn = "WMA" then out.WriteLine path & vbTab & file.name & vbTab & file.Sizenfiles = nfiles + 1end ifnext end if for each folder in fldr.Subfolders listdir fso.BuildPath(path, folder.Name)nextend sub

饿，，

如果是access数据库，那就是windows权限问题