以下代码按顺序重命名.wav文件。
如何生成原始及其相应重命名文件的日志,并将该数据挂载到电子表格[excel,(在后台)]。通过背景,我的意思是没有excel开放。
例如,excel中的A1单元格描绘了原始文件名,B1单元格描绘了重命名的文件名,如附图中所示。
谢谢。
Dim sourcePath As String = "E:\testrenamerbackup\vbdotnet"
Dim searchPattern As String = "*.wav"
Dim curDir As New DirectoryInfo(sourcePath)
Dim i As Integer = 1
For Each fi As FileInfo In curDir.GetFiles(searchPattern).OrderBy(Function(num) num.CreationTime)
File.Move(fi.FullName, Path.Combine(fi.Directory.FullName, "wavFile_" & i & ".wav"))
i += 1
Next