VB.net從Dir讀取文件名以運行SQL查詢

Question

我被要求創建一個輪詢活動目錄的控制檯應用程序。 （C. \ Temp \ Input）

當文件進入(filename).SUCCESS時，將檢索文件名以運行SQL查詢。因此，

IF fileextension = SUCCESS 

使用文件名運行SQL查詢以更改SQL表中的值。 移動原始文件到c:\temp\Input\Processed

任何幫助或提示將不勝感激。

更新：

嗨，與不同IV的景點僅有長相拿出下方。忘了SQL現在，我只是後的文件名和文件，但即時得到IO異常的移動該文件已在使用：

進口System.IO 進口System.String 模塊模塊1

Dim fileName As String = "C:\temp\Input\NR12345.success" 
Dim pathname As String = "C:\temp\Input\" 
Dim result As String 
Dim sourceDir As String = "C:\temp\Input\" 
Dim processedDir As String = "C:\temp\Input\Processed\" 
Dim fList As String() = Directory.GetFiles(sourceDir, "*.success") 



Sub Main() 
    result = Path.GetFileName(fileName) 
    Console.WriteLine("GetFileName('{0}') returns '{1}'", fileName, result) 
    result = Path.GetFileName(pathname) 
    Console.WriteLine("GetFileName('{0}') returns '{1}'", pathname, result) 

    Call MySub() 

End Sub 

Sub MySub() 
    'Move Files 

    For Each f As String In fList 
     'Remove path from the file name. 
     Dim fName As String = f.Substring(sourceDir.Length = 0) 
     Dim sourceFile = Path.Combine(sourceDir, fName) 
     Dim processedFileDir = Path.Combine(processedDir, fName) 

     ' Use the Path.Combine method to safely append the file name to the path. 
     ' Will overwrite if the destination file already exists. 
     File.Copy(Path.Combine(sourceDir, fName), Path.Combine(processedDir, fName), True) 
     'File.Copy(sourceFile, processedFileDir) 

    Next f 
End Sub 

前端模塊

Answer 1

我曾經使用過這樣的：

The FileWather Class

對於輪詢目錄結構和文件詳細信息中的更改等非常有用

然後，您可以使用this獲取文件的擴展名，並且如果符合條件，請執行一些操作。

這些鏈接帶有例子，所以很享受！

Sub MySub() 
    'Move Files 

    For Each f As String In fList 

     Dim fInfo As FileInfo = New FileInfo(f) 

     Dim fName As String = fInfo.Name 

     Dim processedFileDir = Path.Combine(processedDir, fName) 

     ' Use the Path.Combine method to safely append the file name to the path. 
     ' Will overwrite if the destination file already exists. 
     File.Copy(fInfo.FullName, processedFileDir, True) 

    Next f 
End Sub