在本地目录中列出文件的VBscript代码替换解决方案

VBscript code replacement solution on listing files in local directories

本文关键字：文件 VBscript 代码 解决方案 替换      更新时间：2023-09-26

寻找一个非vb的解决方案来收集本地目录中的文件名并放入javascript数组中。该应用程序不受网络限制。它将只在本地运行。下面是vb解法。目前这工作得很好，但我需要走另一条路线上的文件名集合。下面的脚本运行后，我有一些javascript捡起var -木材，金属，塑料-和他们一起运行。任何建议的另一个脚本解决方案，以获得文件名的本地目录，将在firefox或chrome中运行?我没有运行本地web服务器，但考虑过nodejs-对于我需要的东西来说似乎有点过分。这是一个使用html,css,javascript和jquery的本地web浏览器应用程序。

  <script language="vbscript">
 'List Files in a particular Directory
 Dim fs2, f2, fs3, f3, fs4, f4, wood, metal, plastic, folderspec2, folderspec3, folderspec4, strFileName2
  folderspec2 = ".'wood"
folderspec3 = ".'metal"
folderspec4 = ".'plastic"
Set fs2 = CreateObject("Scripting.FileSystemObject")
 Set f2 = fs2.GetFolder(folderspec2)
For Each FileName In f2.files
 wood = wood & fileName.name
 wood = wood & ","
 Next
   set f2 = nothing
 set fs2 = nothing
Set fs3 = CreateObject("Scripting.FileSystemObject")
 Set f3 = fs3.GetFolder(folderspec2)
For Each FileName In f3.files
 metal = metal & fileName.name
 metal = metal & ","
 Next
  set f3 = nothing
 set fs3 = nothing
Set fs4 = CreateObject("Scripting.FileSystemObject")
 Set f4 = fs4.GetFolder(folderspec2)
For Each FileName In f4.files
 plastic = plastic & fileName.name
 plastic = plastic & ","
 Next
  set f4 = nothing
 set fs4 = nothing
 </script>

你不能在浏览器中这样做。提供沙箱保护，防止对文件系统的访问，这是web浏览器的核心功能。如果没有这种安全特性，网络就不是一个可行的平台。除了让用户在浏览器中安装插件之外，没有其他办法可以解决这个问题。

因为这只会在一台机器上运行，我建议你写一个后台服务，在你选择的通用语言的计算机上运行，在一个时间表上，从文件系统中你想要的文件夹中读取文件列表，并将它们写入一个javascript数组在计算机上的一个特殊文件，你的web浏览器/html页面将能够读取和使用

相关文章：