VB Source Dossier Question

Question

Comment puis-je choisir des fichiers en utilisant la date d'aujourd'hui?

J'ai des fichiers qui ont des dates et des heures dans un dossier, 08-25-2010-123803654.xml, 08-25-2010-123804441.xml, 08-24-2010-123851240.xml, etc.

Je veux retirer seulement les entrys d'aujourd'hui et quand je mets mon code, cela me donne une erreur.

Mon code est:

sourcefolder = "C: \ TEST (DateTime.Now.tostring ('MM-dd-* AAAA')"

Je ne suis pas sûr de ce que Im faire mal ici

Merci

mon code. Module Module1

Private Property fs As Object 
Private Property BaseName As Object 
Private Property FullTargetPath As Object 

Sub Main() 


    Dim xlApp, xlWkb, SourceFolder, TargetFolder, file 
    xlApp = CreateObject("excel.application") 
    fs = CreateObject("Scripting.FileSystemObject") 
    Const xlNormal = 1 
    SourceFolder = "C:\TEST\" & DateTime.Now.ToString("MM-dd-yyyy") & "*" 
    TargetFolder = "C:\TEST\Excel" 

    'Hide Excel 
    xlApp.Visible = False 

    'Process each file in SourceFolder 
    For Each file In fs.GetFolder(SourceFolder).files 
     'Open file in SourceFolder 
     xlWkb = xlApp.Workbooks.Open(file) 
     'Get Filename 
     BaseName = fs.getbasename(file) 
     'Concatenate full path. Extension will be automatically added by Excel 
     FullTargetPath = TargetFolder & "\" & BaseName 
     'Save as XLS file into TargetFolder 
     xlWkb.SaveAs(FullTargetPath, xlNormal) 
     'Close the file after its done 
     xlWkb.close() 
    Next 

    xlWkb = Nothing 
    xlApp = Nothing 
    fs = Nothing 

    MsgBox("Finished. Bout time!") 


End Sub 

End Module

Answer 1

Je vais simplement traduire cette partie de votre code, espérons-vous mettre sur la bonne voie:

Dim targetFolder As String = "C:\TEST\Excel" 

Dim sourceFolder As String = "C:\TEST" 

' Here is where we specify a pattern by which we will find files in ' 
' sourceFolder. ' 
Dim searchPattern As String = String.Format("{0:MM-dd-yyyy}*.xml", Date.Today) 

' This will give us an array with only those files matching the pattern above; ' 
' that is, only files from today. ' 
Dim todaysFiles() As String = Directory.GetFiles(sourceFolder, searchPattern) 

For Each file As String In todaysFiles 
    ' Excel stuff... ' 

    Dim fileName As String = Path.GetFileNameWithoutExtension(file) 

    ' Concatenate full path. Extension will be automatically added by Excel. ' 
    Dim fullTargetPath = Path.Combine(targetFolder, fileName) 

    ' More Excel stuff... ' 
Next 

Answer 2

Le code affiché ne rajoutez pas réellement la date d'aujourd'hui sur le chemin de base, il crée une chaîne statique. Ne vous dire:

SourceFolder = "C:\TEST\" & DateTime.Now.ToString("MM-dd-yyyy") & "*"