Q1：怎么去掉文件扩展名?
您的问题可能有两种情况：
1、删除扩展名；
2、隐藏扩展名。
这两种情况的操作方法：单击浏览器的“工具”，选中“文件夹选项”，点击“查看”，把“隐藏已知文件类型的扩展名”，把那个“小勾”点掉，再点击“确定”，退出。这样就能看见文件的扩展名了，可以用“重命名”来改变或删除扩展名。若想隐藏则是反过来操作，把“小勾”点上。
Q2：怎么显示文件的扩展名
第一步：在“开始”中，点击“控制面板”。
第二步：在“控制面板”中，选择“外观和个性化”。
第三步：在“外观和个性化”中，选择“文件夹选项”。
第四步：在“文件夹选项”进入“查看”选项栏。
第五步：用鼠标把滑块往下拉，找到“隐藏已知文件类型的扩展名”，把它前面的勾选去掉，再点击确定，就可以看到每个文件的隐藏的扩展名。
Q3：如何根据文件扩展名移动文件？
据我们所知，至少有三种方法可以解决这个问题：您可以使用 WMI、FileSystemObject 或 Shell 对象。其中有没有一种最好的方法呢？这三种方法最终都能完成这项任务。与其他两种方法相比，WMI 的一个优点是：它在远程计算机上完成这项任务和在本地计算机上一样容易。当然，WMI 也有一个缺点，即它实际上没有移动文件的内置方法。但是，我们从未让这么小的一件事阻挡过我们前进的步伐，不是吗？让我们看看以下这个脚本。此脚本将检索 C:\Payroll 文件夹中的所有文件的列表，然后将所有扩展名为 .log 的文件移动到文件夹 D:\Operation Logs 中：strComputer = "." Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2") Set colFiles = objWMIService.ExecQuery _ ("ASSOCIATORS OF {Win32_Directory.Name=‘C:\Payroll‘} Where " _ & "ResultClass = CIM_DataFile") For Each objFile in colFiles If objFile.Extension = "log" Then strCopy = "D:\Operation Logs\" & objFile.FileName _ & "." & objFile.Extension objFile.Copy(strCopy) objFile.Delete End If Next 重要信息。如果运行此脚本，请确保您使用了有效的路径。假设您尝试将文件复制到 D:\Operation Logs，但是您的计算机实际上没有 D 驱动器。在这种情况下，Copy 命令将失败，但 Delete 命令可成功执行。因此您的文件没有被复制到任何地方就被删除了。首先，我们连接到 WMI 服务，然后使用 ASSOCIATORS OF 查询来检索位于文件夹 C:\Payroll 中的所有文件。然后，我们遍历整个文件集合，检查是否有文件扩展名为“log”的文件。这就是下面所执行的操作：If objFile.Extension = "log" Then 请注意，我们不是在查找具有“.log”文件扩展名的文件；请确保您已将点 (.) 省略。如果我们找到具有“log”文件扩展名的文件，会发生什么呢？正如我们前面所提到的，WMI 没有用于移动文件的内置方法。我们打算通过将文件从 C:\Payroll 文件夹复制到 D:\Operation Logs 文件夹来解决这个问题。在很短的一段时间内，我们拥有该文件的两个副本：一个在 C:\Payroll 中，一个在 D:\Operation Logs 中。但是别担心：在下一行代码中，我们就将删除位于 C:\Payroll 中的副本。执行了该项操作后，我们就只拥有文件的一个副本了，即位于 D:\Operation Logs 中的那个副本。实际上，尽管我们没有使用任何一种 Move 方法，但我们确实移动了文件。 是的，我们耍了一点儿小手段。此处唯一需要一点儿技巧的操作就是 WMI 复制文件时要求完整的路径名称。假设我们找到一个名为 March.log 的文件。若要复制此文件，需要使用完整的路径：D:\Operation Logs\March.log。因此我们使用以下这行代码构造该路径：strCopy = "D:\Operation Logs\" & objFile.FileName _ & "." & objFile.Extension 我们要执行的全部操作就是将值分配给变量 strCopy。该值恰好由以下几部分构成：“D:\Operation Logs\”加上文件名 (March)，加上一个句点 (.)，再加上文件扩展名 (log)。将它们放在一起就成了“D:\Operation Logs\March.log”。这正是我们要传递给 Copy 方法的路径。是的，您可能已经注意到了，文件扩展名是从文件名中分离的属性。这就是我们将“FileName”属性、一个句点和“Extension”属性组合在一起的原因。此脚本稍微有一点儿麻烦，但是它可使编写其他脚本变得更容易，比如一个返回计算机上所有具有“log”文件扩展名的文件的脚本。 一旦构造完该路径，我们就可以将文件复制到驱动器 D，然后从驱动器 C 删除原始文件。这就是我们使用以下两行代码执行的操作：objFile.Copy(strCopy) objFile.Delete 就是这么回事：此脚本继续循环直到它选中文件夹中的每个文件并将所有具有“log”文件扩展名的文件移动到 D:\Operation Logs 中为止。为了保持示例脚本尽可能地短，我们只检查一个文件扩展名。不过，检查其他的文件扩展名并将这些文件移动到适当的文件夹也很容易。以下是一个修订过的脚本，此脚本也对 .bak 文件进行检查，并将它们复制到 D:\Operation Backups：strComputer = "." Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2") Set colFiles = objWMIService.ExecQuery _ ("ASSOCIATORS OF {Win32_Directory.Name=‘C:\Payroll‘} Where " _ & "ResultClass = CIM_DataFile") For Each objFile in colFiles If objFile.Extension = "log" Then strCopy = "D:\Operation Logs\" & objFile.FileName _ & "." & objFile.Extension objFile.Copy(strCopy) objFile.Delete End If If objFile.Extension = "bak" Then strCopy = "D:\Operation Backups\" & objFile.FileName _ & "." & objFile.Extension objFile.Copy(strCopy) objFile.Delete End If Next 若要对更多的文件扩展名进行检查，只需添加一些其他的 If-Then 语句即可。这就是全部的工作。
Q4：怎样将文件夹中扩展名为gif的文件移动到另一个文件夹
剪切然后在目标文件夹内粘贴
