Moves specific files from a folder to another, perfect for My document folders etc.

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Moves specific files from a folder to another, perfect for My document folders etc.

Logged in as: Guest

arrSession:exec spGetSession 2,16,34399

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> Moves specific files from a folder to another, perfect for My document folders etc.
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Moves specific files from a folder to another, perfect ... - 5/11/2006 5:32:21 PM

majkie

Posts: 2
Score: 0
Joined: 3/25/2006
Status: offline

Option Explicit
Dim lfolder
Dim rfolder
Dim nfile
Dim objShell
Dim objFolder
Dim objFolderItem
Dim strPath
Dim objPath
Dim basePath
Dim objDialog
Dim intResult
Dim kortText
Dim folderName
Dim filePath
Dim Val
Dim fso
Dim strFolder
Dim f
Dim mkfolder
Dim strFile
Dim Affe
Msgbox("With this script you move files." & vbnewline & "Press Ok choose a folder.")
Const MY_COMPUTER = &H11&
Const WINDOW_HANDLE = 0
Const OPTIONS = 0
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(MY_COMPUTER)
Set objFolderItem = objFolder.Self
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder _
      (WINDOW_HANDLE, "Pick a folder:", OPTIONS, objFolderItem.Path)
   
If objFolder Is Nothing Then
      Wscript.Quit
End If
Set objFolderItem = objFolder.Self
objPath = objFolderItem.Path
Affe = Len(objPath)
If Affe > 3 Then
   basePath = objPath & "\"
Else
   basePath = objPath
End If

Msgbox("Choose the sorts of files you want to move.")
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "Alla filer|*.*"
objDialog.InitialDir = basePath
intResult = objDialog.ShowOpen

If intResult = 0 Then
  Wscript.Quit
End If
kortText = Len(objDialog.FileName)
filePath = Mid(objDialog.FileName,(kortText-2),3)
folderName = Inputbox("What should the folders name be?" & vbnewline & "Just the name. Ex Mp3")
Val =  Msgbox("Are you sure?", vbYesNo)
If Val = vbNo Then  WScript.Quit
If Val = vbYes Then
   Set fso = CreateObject("Scripting.FileSystemObject")
   strFolder= basePath & folderName
   Set f = fso.CreateFolder(strFolder)
   mkfolder = f.Path
   lfolder = basePath & "*." & filepath
   rfolder = strFolder
   Set objShell = CreateObject("Shell.Application")
   Set objFolder = objShell.NameSpace(strFolder)
   objFolder.MoveHere lfolder
   wScript.Echo strFile & "Your files are now moved to the folder " & folderName
End If

< Message edited by ebgreen -- 5/12/2006 2:25:01 AM >

Revisions: 1 | Post #: 1

RE: Moves specific files from a folder to another, perf... - 5/12/2006 2:26:16 AM

ebgreen

Posts: 4613
Score: 31
Joined: 7/12/2005
Status: offline

I added some indentation and code tags to your post to make it easier to read. Please add comments to your code to help others understand what it is doing and how it does it.

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to majkie)

Post #: 2

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> Post a VBScript >> Moves specific files from a folder to another, perfect for My document folders etc.

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts