Vb.net 如何获取目录字符串的结尾
其目的是移动其指定文件夹中的文件,如果日期从今天起至少一天,则文件就位于该文件夹中。我很难找到FirstIndexOf的功能,类似于LastIndexOf,我想在Dim filename中的文件路径开头添加子字符串,以获取文件名并将其解析为日期类型。出于动态原因,我不想删除35个字符,但我不确定还能做什么VS2005.NET 2.0Vb.net 如何获取目录字符串的结尾,vb.net,string-formatting,Vb.net,String Formatting,其目的是移动其指定文件夹中的文件,如果日期从今天起至少一天,则文件就位于该文件夹中。我很难找到FirstIndexOf的功能,类似于LastIndexOf,我想在Dim filename中的文件路径开头添加子字符串,以获取文件名并将其解析为日期类型。出于动态原因,我不想删除35个字符,但我不确定还能做什么VS2005.NET 2.0 Sub CopytoArchive(ByVal mydirpath As String) 'Dim mydirpath As String = "C:\UT
Sub CopytoArchive(ByVal mydirpath As String)
'Dim mydirpath As String = "C:\UTResults\"
'C:\UTResults\Press3\sv70206655\data07012015.txt is an example of txtFileList
'12345678901234567890123456789012345
Dim txtFileList As String() = Directory.GetFiles(mydirpath, "*.txt", SearchOption.AllDirectories) 'Search all files in the given path with .txt type
For Each txtName As String In txtFileList 'C:\UTResults\Press3\sv70206655\data07012015.txt 'is an example of txtFileList
Dim pressname As String = txtName.Substring(0, txtName.LastIndexOf("\")) 'C:\UTResults\Press3\sv70206655 'take out the file extension
pressname = pressname.Substring(0, pressname.LastIndexOf("\")) 'C:\UTResults\Press3 'take out the folder after the press folder
pressname = pressname.Remove(0, 13) 'Press3 'for a clean "PRESS" look
Dim folderexists As String = "C:\writetest\" + pressname
Dim filename = txtName.Substring(txtName.LastIndexOf("."))
filename = filename.Remove(0, 35)
Dim datestring = DateTime.ParseExact(filename, "MMddyyyy", Nothing)
If datestring < Now.AddDays(-1) Then
My.Computer.FileSystem.CreateDirectory(folderexists)
My.Computer.FileSystem.MoveFile(txtName, folderexists + "\" + "data" + filename + ".txt")
End If
Next
End Sub
Sub-CopytoArchive(ByVal mydirpath作为字符串)
'Dim mydirpath As String=“C:\UTResults\”
'C:\UTResults\Press3\sv70206655\data07012015.txt是txtFileList的一个示例
'12345678901234567890123456789012345
Dim txtFileList As String()=Directory.GetFiles(mydirpath,“*.txt”,SearchOption.AllDirectories)'使用.txt类型搜索给定路径中的所有文件
对于txtFileList中的每个txtName As字符串,“C:\UTResults\Press3\sv70206655\data07012015.txt”是txtFileList的一个示例
Dim pressname As String=txtName.Substring(0,txtName.LastIndexOf(“\”)C:\UTResults\Press3\sv70206655'取出文件扩展名
pressname=pressname.Substring(0,pressname.LastIndexOf(“\”)'C:\UTResults\Press3'在按文件夹后取出文件夹
pressname=pressname。删除(0,13)“Press3”以获得干净的“PRESS”外观
Dim FOLDER以String=“C:\writetest\”+按名称的形式存在
Dim filename=txtName.Substring(txtName.LastIndexOf(“.”)
filename=filename.Remove(0,35)
Dim datestring=DateTime.ParseExact(文件名为“MMddyyyy”,无任何内容)
如果datestring
System.IO.Path
具有一些处理文件路径名的强大功能
Dim filename = Path.GetFileName(txtName)