Beste alle,
ik wil met een vba bestanden in een map verwijderen die beginnen met een ~ teken.
( bestanden die door syteemfouten worden achtergelaten )
als ik onderstaande routine wil gebruiken geeft hij een fout en accepteert hij het ~ teken niet.
Wie weet wat ik verkeer doe.
ik wil met een vba bestanden in een map verwijderen die beginnen met een ~ teken.
( bestanden die door syteemfouten worden achtergelaten )
als ik onderstaande routine wil gebruiken geeft hij een fout en accepteert hij het ~ teken niet.
Wie weet wat ik verkeer doe.
Code:
Public Sub RSVerwijderFoutBestand()
Dim fs As Object
Dim f As Object
strSourcePath = "C:\Users\" & Environ("Username") & "\My Files\Google Drive\My Drive\Roosters\Afdelings
Set fs = CreateObject("Scripting.FileSystemObject")
strPath = strSourcePath
strfile = Dir(strPath)
Do While strfile <> ""
MsgBox strfile
if strfile = ~$*.* then msgbox ("Gevonden")' hier wil ik eerst weten of het bestand aanwezig is
Set f = fs.GetFile(strPath & strfile)
' If DateDiff("d", f.DateLastModified, Date) > 1 Then Kill strPath & strFile
strfile = Dir
Loop
End Sub