Question

我需要从一个文件夹中提取两个自动生成的文件中的一个文件。

每个文件名的末尾都有日期和时间。

日期很容易获得，但由于时间格式为“ 01h01m01s”，所以我迷上了时间。

是否可以使用RegEx解决此问题？

以下是在资源管理器中显示的文件名：

这是我的代码示例：

arquivo = "C:\pathname\file_2018_12_27-01h15m22s.zip"
Caminho = "C:pathname\"

strDate = Format(Now, " dd-mm-yy")
NewFolder = Path & "Extracted" & strDate & "\"

MkDir NewFolder
Set oApp = CreateObject("Shell.Application")
'Set oApp = CreateObject("Shell.Application")
oApp.Namespace(NewFolder).copyhere oApp.Namespace(file).items

Answer 1

<!DOCTYPE html>
<html>

<head>
  <meta charset="utf-8" />
  <title>Page Title</title>
  <meta name="viewport" content="width=device-width, initial-scale=1">
  <link rel="stylesheet" href="..\CSS\style.css" />

</head>

<body>
<div id="WhatShouldResult">
<div class="hex-grid">
  <div class="hex-group1">
    <div class="hex-tile1">
    </div>
    <div class="hex-tile2">
    </div>
    <div class="hex-tile3">
    </div>
  </div>
  <div class="hex-group2">
    <div class="hex-tile2">
    </div>
  </div>
</div>

</div>
<div class="hex-grid"></div>
  <script src="../JS/hexagonPosition.js"></script>
  </body>

</html>

使用VBA提取带有名称过滤器的文件

1 个答案: