How to move attachments in outlook with VB script

See more:

VB

Outlook

can someone tell me how to move attachments to a folder at path "C:\data\input"
i will use it with my 'outlook rules' by running a script and after that a SSIS package to import into database. thank you

Stuck with this
Item.Move (Session.GetDefaultFolder(olFolderInbox).Folders("Move"))
can i use this
Item.Move ("c:\data\input")


i am using this code in scripts

Sub MoveMail(Item As Outlook.MailItem)
 
If Item.Attachments.Count > 0 Then
 
Dim attCount As Long
Dim strFile As String
Dim sFileType As String
 
attCount = Item.Attachments.Count
 
For i = attCount To 1 Step -1
      strFile = Item.Attachments.Item(i).FileName
       
      sFileType = LCase$(Right$(strFile, 4))
     
    Select Case sFileType
        Case ".csv", ".xls", "xlsx"
      Item.Move (Session.GetDefaultFolder(olFolderInbox).Folders("Move"))

       GoTo endsub
      End Select
  Next i
 
End If
  
endsub:
 
  Set Item = Nothing
  
End Sub