Tracking Forums, Newsgroups, Maling Lists
Home Scripts Tutorials Tracker Forums
 
  HOME    TRACKER    Visual Basic




Moving Single Items From One Folder To Another


How do I go deleting a message in my inbox, and have it show up in my Trash? I know this much of the process:

1. Delete the message (Don't need info on this)
2. Empty the listview when the user clicks on the Trash folder (Don't need info on this either)

There's a Step C, which involves retrieving the sender, subject, send date, and message text from the message, just like I did when retrieving new mail. How would I retrieve the data for just that message, and add that to the now-empty listview?

An example of what I want to do would be found inside Outlook Express. Note as it empties the listview when you change folders, and then loads the contents of the selected folder.

Sorry if this seems a little vague, but that's the best I can explain it.




View Complete Forum Thread with Replies

See Related Forum Messages: Follow the Links Below to View Complete Thread
Moving A Single Image From One Form To Another
Hi,

i wonder if anybody can help me.

My Problem is as follows:
I have two forms. The first form is full screen size and the second form fills half of the screen at the top. On the second form i have an Image, the first form is blank. i want to move the image by clicking on it with the mouse and moving/drag it on to the first form is this possible? im not sure it is.

Another way would be to have identical Images on both forms but have the Image on the first form hidden. So when i drag the image from the second form to the edge it will become hidden and at the same time the image on the first form will appear still stuck to the end of the mouse giving the impression of ther only being one image. Would this work and if so what would the code be? Or is ther an easier way of doing it?


Thank for your help!

Removing Single Items From Listbox
Hi all,
Here's my code:

Code:
For x = 0 To lstDCN.ListCount - 1
If lstDate.List(x) <> txtWDate.Text Then
lstDate.List(x) = ""
lstDCN.List(x) = ""
lstAge.List(x) = ""
lstStatin.List(x) = ""
End If
Next x

This almost works. Instead of getting rid of the line altogether, it's just writing it as a blank line (which is not good). To keep it nice and short, how do I remove the line insteade of have it write ""?

Thanks!

Moving Through Items In A Listview
Am I being a complete , or what? I'm trying to move through the items in a listview, so that I can insert the entries one-by-one in to DB - ie each item in the listview represents a new record in a DB table.

Now, I would have expected (as with all things VB) this to be quite straight forward. Something along the lines:

ListView1.selecteditem.movenext

I know this a bit hopeful, but I can't believe there's no way to incrementally move through all the items.

I've been through MSDN and searched this entire forum for a similar thing but I cant find anything.

I must be missing something really obvious here!

Moving New Menu Items From One PC To Another..
Hi there. I'm using MS Word 2003 in my PC A. I'v built a new menu (e.g. Letter Template with 35 sub menu items (each item built with some macro scripts)) on the menu bar (at the right of "Help") and now I have to work with another PC B. How can I move the new menu items from PC A to PC B without having again to use the "Customise" to add all the menu items in PC B?

Cheers.

Moving Items Up And Down In A Listbox
I just solved this question that I've had for a while.

Thought I'd share the code.

http://cornempire.newezone.com/resou...e/listmove.htm

Moving Items To The End Of The List!
hi!all!
i am looking for a code to move a selected item to the end of the list box!

for example i have a list1 with items
1
2
3
i select the first item ,item 1 and then click the button!
the item should move to the end of the list and the list would look like>
2
3
1
---------------------------

Moving Menu Items
Hi folks, I found a post the other week concerning moving menu items up and down the list by clicking and dragging them to a different place (Like in IE's faves). I was wondering if anyone could find this post as I have spent the last 20 mins looking with no solution.

Any help would be much apreciated

Lucas

Moving Items In A Listbox
Hi, I have a listbox, with the following:

[case 1]
Msg "Hello"
[case2]
msg "hello"

You can place these items on another dialog.
but, I need it to look like:

[case1]
Msg "hello"
... ---->Open a new space for more Messages when you place one.
[case2]
Msg "hello 2"

This is the code I have so far, but it isnt working.


Code:
Private Sub Command1_Click()
Dim newe As Integer


newe = Newevent.EventList(Eventnum).ListCount
Newevent.EventList(Eventnum).AddItem "<Msg>: " & Text1.Text, newe
'This bit is OK, places the message.

If Newevent.EventList(Index).Text = "..." Then
Newevent.EventList(Index).List(Newevent.EventList(Index).ListIndex) = "..."
Newevent.EventList(Index).List(Newevent.EventList(Index).ListIndex) = "<Msg>: " & Text1.Text
'Only one thing to happen for a Case
'Need it so you can have more than 1 Message under
'case 1, case 2,etc... (Move every ListItem down 1?) -Chris

Dim Position
For n = Newevent.EventList(Index).ListCount To Position + 1 Step -1
Newevent.EventList(Index).List(n) = Newevent.EventList(Index).List(n - 1)
Next
Newevent.EventList(Index).List(Position) = "..."
End If
Exit Sub

Unload events
Unload Me

End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Any help would be appreciated

Chris

Moving Items Together From Two Listboxes!
i have two lists!

list 1 list2

math sci
history soc
math sci
drawing fun
physics sci
biology sci
phys.eductaion fun

list1 has the subjects
list2 has the category of the subjects

now i can arrange the second list so that sci goes first then soc then fun
(i have the code for this) but the problem is that together with the category also the subject should move.

so i want them to move together when being sorted!
is there any way to keep them together!
i have done something with listindex and topindex but it is not functional for this case!

Moving Items Up And Down In A List Box...
Hey guys, I was wondering if anyone can help me on how to move items up and down a list box? Also, if I want to move an item start from the bottom to the top?

Please, help me...

Moving Items Around A List Box
hi !
I have yet another short query here..and would be grateful if anyone could help.
I got a list box with a playlist for a radio show..and to the right of it i have 2 more listboxes..one with duration of track and the other with the point in time at which the track starts in the show.
I have 2 buttons below up and down which when clicked on move the selected item up or down in the playlist accordingly along with the related times.
How do i do this ?
Also how do make sure that there is one item selected at aLL times.
any help would be great !

Harpooon

Moving Items In Listbox
im trying to get items in a list box to move up and down im not sure how to do it i dont have the first clue wot to do can anyone help with the code?

Moving Items In An Array
G'day

I have a numeric array (20,7).

The user is allowed to delete one line (1 to 20).

If the used deletes line 7, I need to move all items 8 to 20 down 1 and zero number 20 so I don't have a blank line in position 7

Is there an easier way to do it rather than a for/next loop

Peter.

Moving Collection Items
I've never used a Collection before and I was wondering how would I go about moving an item from one index to another?

I want to display the item that has an index of 0 and then remove it form the collection at a certain interval. Then I want to move all teh other items up a spot in the collection. (1 becomes 0, 2 becomes 1, etc.)

Thanks in advance.

Edit: Also, is there a fast way to clear a collection other than looping through it all and setting the values to null?

Moving Items Between Listboxes
Hey...

Could someone please provide me with the syntax for moving items in between two listboxes (i.e. List1 and List2)?

I'm having some trouble fiddling about with it. I simple want to be able to add items from List1 to List2 (deleting the item from List1 in the process) and vice versa.

Thanking you in advance...

Moving ListBox Items
Could anyone tell me how to write a sub that allows you to click and drag an item in a listbox to a new index position within the listbox?

Ash

Moving Items In A Listbox
I have a listbox that has several items in it that i want the user to be able to move up or move down. I have two buttons, one for up the other one for down. Anyone know how to do this? Thanks!

Moving All Items From One List Box To Another
I am having problems selecting the first item in the list box. Here is the code that I have written:

Private Sub ZonesAll_Click()
Dim ZoneName As String
Dim ZoneNumber As Integer
Dim n As Integer
Dim i As Integer
n = Me.ZonesNotSelected.ListCount

'I need a line here that will select the top item in the list

For i = 0 To n - 1
Me.ZonesNotSelected.Selected
ZoneName = Me.ZonesNotSelected.Text
ZoneNumber = Me.ZonesNotSelected.ListIndex
Me.ZonesNotSelected.RemoveItem ZoneNumber
Me.ZonesSelected.AddItem ZoneName
Next i
End Sub

Thanks
SLR

Moving Items In A ListView
Hi,
I'm using a ListView to show information. I want the user to be able to click and drag one of the ListView items to move it higher or lower on the ListView. Is there any way to do this? I know that you can do it with command buttons, but is there a way to do it with the mouse?

Thanks!

Moving List Items Up And Down
This is a bit foolish question bu I forgot how to do it.
I want to move items listed in the list box up or down. How do I do it?

Kinjal

Moving Items Up/Down In List Box W/VB
There is another thread in the javascript section with almost the same title, so what I am wondering is if there is a VB version of it. The thread id is

URL

Any help would be greatly appreciated

Moving Items Between Listboxes
I'm having trouble figuring out how to move a list from one listbox to
another using a command button. The idea is to click on a command
button and all items in listbox A will move over to listbox B. I'm
able to move one item using AddItem, but I don't know how to move the
whole list.

Thank you.

Moving Items Between Listboxes
Hello,

I have a form with 2 listboxes (lstUnselected & lstSelected). I want to let the user send as many items as they have highlighted from 'lstUnselected' to 'lstSelected' with the click of a button. The items will then disappear from 'lstUnselected' and appear on 'lstSelected.'

How does this work?

Much thanks!
Ed

Moving Messages From One Sent Items Box To Another!!!
Hi All

Am desperatly trying to allow PA's to send as their bosses and there be a custom rule that moves the sent item from the PA's Sent items box to the bosses sent item box. Ideally this would be automatically and not be a forward.

I have got code to check the from feild on entry to the PA's sent item box and then forward it on to the boss but I then need to populatre the from feild so that I can run a rule at the bosses end!!!

Any help would be great.

Thanks

Nathan

Moving Items In Listbox Down
This code is supposed to move items down 1 spot within the list box with the push of a cmdbutton. I got it to move one item at a time down, but ideally it should move multiple items down at the same time. Any ideas or suggestions would be greatly appreciated. Thank you.

Private Sub cmddown_Click()
Dim Temp As String, Item As Integer

Item = lstShopping.ListIndex

If (Item &gt; -1) And (Item &lt; lstShopping.ListCount - 1) Then
Temp = lstShopping.List(Item)
lstShopping.RemoveItem Item
lstShopping.AddItem Temp, Item + 1
lstShopping.ListIndex = Item + 1
End If
End Sub

Archie Kantzavelos

Write Or Print To File Multiple Data Items On A Single Line
I would like to write (or print) to a file numerical data in the following form:

11, 12, 13 (CHR13)
22, 23, 24 (CHR13)
etc

or just:

11 spc 12 spc 13 (CHR13)
22 spc 23 spc 24 (CHR13)
etc

In some programming languages (e.g. Fortran) this is easy. In VB the only way I can think of doing this:

concatenate the individual data items in string format until the EOL
and then when reading data back from the file I have to parse and convert the individual string items to Val(s).

I'm using VB5.

Is there any way to do this in a simpler manner?

P.S.

I'm trying to avoid the line-by-line format, such as:

12
13
14
22
23
24
etc.

Moving/Sizing Items On A Canvas
I'm looking for some help/info on how I can move and resize objects (image controls with handles drawn around it) on a canvas (in this case the whole form which is fullscreen); like, for example, moving shapes or textboxes around the page in Word. I've had a little luck trying to figure it out myself, but it's just not working...

Moving Items From One Datalist Box To Another {Access}
Sorry if I'm posting this to the wrong forum.
I've tried searching the site for an answer, but haven't found anything that helped me...

I've got two datalist boxes (using MS Access, if that helps), and I'm trying to figure out how to move selected items from the first box to the second box.
I know that it's probably something really incredibly easy, but I can't get it for the life of me and it's making me want to ram my head against a brick wall.
Any help you guys can give will be much appreciated.

Code For Moving Items Up/down List Box?
Anyone know how to move items up or down the order in a list box. Thx

Moving Items From Listboxes To Table
I want to move rows with items from listboxes to a table. Each listbox is a collumn of items, and I want all items to be moved to the database table one row at a time, and remove the rows from the listboxes when they have been added to the database. I figure I need loop function for this, but I dont have much experience with them.
I tried running the codes bellow, but I get invalid use of property or something at "kategoriliste.ListIndex = fisknummer" etc.
I also have a problem with the insert function to the database, it's giving me "missing operator in query". I tried copying an insert function from another post on this forum and changed it for my needs, but it didnt work any better.


Code:
Public Sub OppdaterIndivider()
Dim MyConn As ADODB.Connection
Set MyConn = New ADODB.Connection
Dim MyRecSet As ADODB.Recordset
Dim alder As String
Dim kjoenn As String
Dim arten As String
Dim kategori As String

For fisknummer = 0 To kategoriliste.ListCount

kategoriliste.ListIndex = fisknummer
familien.ListIndex = fisknummer
populær.ListIndex = fisknummer
kjønn.ListIndex = fisknummer
pris.ListIndex = fisknummer

kategori = kategoriliste.Text
arten = familien.Text
alder = 6
kjoenn = kjønn.Text

Set MyConn = New ADODB.Connection
MyConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:ProgrammeringAkvariespilletAkvariespillet.mdb;"
MyConn.Open
With MyConn
.BeginTrans
.Execute "INSERT INTO Individermaller (artsnavn, alder_mnd, kjønn) VALUES('" & arten & "', #" & alder & "', #" & kjoenn & "#)"
.CommitTrans
End With

Next fisknummer
kategoriliste.clear
familien.clear
populær.clear
kjønn.clear
pris.clear

End Sub
So, can you tell me why the loop and the insert functions aren't working?

Moving Multiple Listview Items Up Or Down At Once
Hi, does anybody know how to move multiple selected listview items up or down at once?

I found the subs below, but they only move one item up or down, even if I have selected multiple items.

Thanks.


vb Code:
Private Enum menmDirections    MoveUp = 1    MoveDown = 2End Enum Private Sub MoveItem(ByVal penmDirection As menmDirections)Dim lvwItem     As ListItemDim lvwNew      As ListItemDim lvwSubItem  As ListSubItemDim lngIndex    As Long    Set lvwItem = lstView.SelectedItem    If Not (lvwItem Is Nothing) Then        If penmDirection = MoveUp Then            lngIndex = lvwItem.Index + 2        ElseIf penmDirection = MoveDown Then            lngIndex = lvwItem.Index - 1        End If        If lngIndex > 0 And lngIndex <= lstView.ListItems.Count + 1 Then            Set lvwNew = lstView.ListItems.Add(lngIndex, , lvwItem.Text)            For Each lvwSubItem In lvwItem.ListSubItems                lvwNew.ListSubItems.Add , lvwSubItem.Key, lvwSubItem.Text, lvwSubItem.ReportIcon, lvwSubItem.ToolTipText            Next lvwSubItem            lvwNew.Selected = True            Set lvwNew = Nothing            lstView.ListItems.Remove lvwItem.Index        End If        Set lvwItem = Nothing    End IfEnd Sub



vb Code:
Private Sub MoveUp(lv As ListView)    Dim itm As ListItem, itmNew As ListItem, i As Long    If lv.SelectedItem.Index > 1 Then        Set itm = lv.SelectedItem        Set itmNew = lv.ListItems.Add(itm.Index - 1, , itm.Text, itm.Icon, itm.SmallIcon)        For i = 1 To itm.ListSubItems.Count            With itm.ListSubItems(i)                Call itmNew.ListSubItems.Add(, .Key, .Text, .ReportIcon, .ToolTipText)            End With        Next        lv.ListItems.Remove itm.Index        itmNew.Selected = True        lv.SetFocus    End IfEnd Sub Private Sub MoveDown(lv As ListView)    Dim itm As ListItem, itmNew As ListItem, i As Long    If lv.SelectedItem.Index < lv.ListItems.Count Then        Set itm = lv.SelectedItem        Set itmNew = lv.ListItems.Add(itm.Index + 2, , itm.Text, itm.Icon, itm.SmallIcon)        For i = 1 To itm.ListSubItems.Count            With itm.ListSubItems(i)                Call itmNew.ListSubItems.Add(, .Key, .Text, .ReportIcon, .ToolTipText)            End With        Next        lv.ListItems.Remove itm.Index        itmNew.Selected = True        lv.SetFocus    End IfEnd Sub

Listview Report Moving Items Up && Down
Hi everyone ,

I know how to move the first column field up and down in a listview report.

But now i have 10 columns and the user wants to select a row and puts it one down (if its not already at the bottom) or one up (if its not already at the top).

thx

Moving Listbox Items W/ Mouse
does anyone know how to shift listbox items around with the mouse? a good example would be winamp's playlist. the code i came up with works fine...if you move your mouse slowly. if you go fast, it'll pretty much mess up the order because the cursor jumps around when you move your mouse too quickly.


Dim HotItem1 As Integer

Private Sub List1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
If HotItem1 <> List1.ListIndex Then
If HotItem1 > -1 Then
a = List1.List(HotItem1)
b = List1
List1.List(List1.ListIndex) = a
List1.List(HotItem1) = b
End If
HotItem1 = List1.ListIndex
List1_Click
End If
Else
HotItem1 = -1
End If

End Sub

Moving Items Between Listboxes (RESOLVED)
Hi, all

 I am trying to do simple moving items between Listoxes I have a lbxAll that is populated with all items and lbxSelected that is to contain the selected items. I need a functionality that user will be able to select more than one item and at the push of a button these items will be transfered to the other listbox and removed from lbxAll

This is my code

Code:

'# to loop over all irems
        Dim i As Integer
        For i = 0 To lbxAll.Items.Count - 1
            '# if current item is selected copy it to lbxSelected
            If lbxAll.GetSelected(i) = True Then
                lbxSelected.Items.Add(lbxAll.Items.Item(i))
            End If
        Next

        Dim j As Integer
        For j = lbxAll.Items.Count - 1 To 0 Step -1
            '# if current item is selected copy it to lbxSelected
            If lbxAll.GetSelected(j) = True Then
                lbxSelected.Items.Remove(lbxSelected.Items.Item(j))
            End If
        Next



The first loop works OK items are copied into lbxSelected But I am always getting error when a Item is to be removed I think this is because once the item has been removed the whole index of lbxAll will change... But Is there any way of doing this?

--------------------------------------------------------------------------------

<Signature>

     That boy is our last hope.......................................

     No there is another !

</Signature>


Edited by - pajer on 9/13/2004 4:33:57 AM

Outlook Macro- Moving Items Into Folders
hi - Im trying to get mail from specific addresses to go into appropriate folders, but my code only sorts mail for one address and not the other. What can you see that Im not seeing?

Code:
Sub Sort()

'Dim Variables

' Initialise Outlook App
Dim objOutlook As New Outlook.Application
' Initialise name space
Dim objOutlookNameSpace As NameSpace
' Initialise folders
Dim fldInbox As MAPIFolder
Dim fldOS As MAPIFolder
Dim fldSM As MAPIFolder


Dim fldPersonal As MAPIFolder
' Others
Dim lNumEmailsInInbox As Long
Dim MyMail As Items




' Set the name space to MAPI
Set objOutlookNameSpace = objOutlook.GetNamespace("MAPI")

' Set the pointer to the inbox
Set fldInbox = objOutlookNameSpace.GetDefaultFolder(olFolderInbox)

' Set the pointer to the Test folder (a folder within the inbox)
Set fldOS = fldInbox.Folders("ACM Business").Folders("01 Overstock IN")
Set fldSM = fldInbox.Folders("ACM Business").Folders("02 SkyMall IN")
' How many emails in the inbox?
lNumEmailsInInbox = fldInbox.Items.Count

' Display it on a form
MsgBox ("There are " & CStr(lNumEmailsInInbox) & " messages in your Inbox")

' Initialise Mail items
Dim MyMailItem As Outlook.MailItem
Set MyMail = fldInbox.Items

' If there are any mail items in inbox
If lNumEmailsInInbox > 0 Then

' Loop through each mail in the inbox and move it to the appropriate folder
For Each MyMailItem In MyMail
If MyMailItem.SenderEmailAddress = "overstock-orders@vcommerce.com" Then

'MsgBox ("Moving " + CStr(MyMailItem))
With MyMailItem
.Move fldOS
End With
ElseIf MyMailItem.SenderEmailAddress = "updates@Skymall.com" Then

With MyMailItem
.Move fldSM
End With
End If
Next MyMailItem
Else
Call MsgBox("No emails in inbox to move", vbAbortRetryIgnore, "Warning")
End If


End Sub
Any help would be appreciated
Thanks a lot guys.

Selecting A Folder With A Dir List Box With Only A Single Mouse Click
I was wondering if there was an easy way to access folders on a dirlist box using a single mouse click.

For instance:

c:
windows

is displayed in a dirlist box

It takes a double mouse clickon windows to go to system32:

c:
windows
system32

Do I have to write a click event for the dirlist so that it somehow does a double click? I would think there
would be an easier way.

Sorry this sounds really dumb. My users are complaining about the double click.







Edited by - AbbydonKrafts on 5/23/2007 6:44:12 AM

Moving .MDB Folder W/ *.DLL's
Hi everyone...I am near completion of my first real access project. To add a few features I have referenced & registered 2 DLL's. I deliberatly set up the code so the folder with the mdb, images and dll's could be moved around. However, now when i move the folder the DLL references become missing and i need to re-register them in their new location.

I cannot expect my employers to do this everytime they copy the project to a new location. Does anyone know a way around this??

Reading Files From A Folder And Writing To A Single Word Document
hi
I am trying to read files from a folder and writing it to a single document. I need to design COM Compenents for the this using VB. Can anyone tell me how to work this out

Thanx in Advance
Harshad

Moving All Files From One Folder To Another
How can I move all files from one folder to another?

Moving A File From One Folder To Another
Excel 2002 with Visual Basic 6.3

I have a file, say it's called test.txt, in C:. During the course of running a particular macro I would like to find that file, move it and save it to another folder, say C:My Documents.

Any ideas for the procedure?

Thanks

Moving Mp3's To A Specific Folder.
Hello,

I am really new to VB. I have a question. On my computer, I have a folder of around 6,000 mp3's. I am wanting to write a program that I can tell it to look for a certain artist in a certain folder. If it finds the word(s) that I input, then it moves the files to a corresponding folder on another drive where everything is organized by folders of artists. Is it possible? If so, can i have a few pointers on how I would go about doing this?? Thanks!!

mazda3guy86

Moving Files From One Folder To Another
Folder1 contains file text.txt
Folder2 is empty

Is there a command to move the file text.txt in folder1 to folder2?

Moving Files From One Folder To Another
hi



i want to move files (10 or more) from one folder to another usingVisual Basic.
If the file already exists in the destination folder it should stillmove and overwrite it.



I tried with Scripting.filesystem Object but it dosent have an option tooverwrite existing file so if any file


already present it fails to move and the files remain in the sourcefolder....

Set lobjFile = CreateObject("Scripting.FileSystemObject")
lstrFilePath = "c:source"
On Error Resume Next
lobjFile.MoveFile lstrFilePath & "*.txt", lstrFilePath &"destination"



Can Any one please give me giving some other solution.

thanx in advance



Regards,
Sachin.

Moving Files From One Folder To Another
I want to get a directory listing and then find files starting with a particular number and then move them to some different folder.
How do I do it?
thanks!

Moving Remote Files To Another Folder
Hi i am creating a FTP program. I need to move the remote files to another folder on the remote server after i have transferred the files over to my side. How do i do the move files? The filesystemobject only move local files right? This is to prevent duplicate files from being downloaded over and over again.

Help A Newb: Moving Emails Into A New Folder
I recently started programming macros in Microsoft Outlook. I was disappointed to find that I could not record macros, but I am attempting to get around that obstacle.
What I need to do is create a new subfolder within a folder then move the emails in the original folder into the new subfolder. I also want to execute this for all these original folders. They are all within another folder named "Archived Email" From searching through the VBA help for a few hours, I was able to put together this program. I've tried to modify code I've found on the forum, but when I run it, it never works (probably because I don't really understand it.) My program creates the new folder, but I have tried many of the methods to move the emails into the folder, all to no avail. I also don't know how to cycle through the folders. I should say that I am very inexperienced with objects and don't truly understand what much of the help tells me.


Sub reorganizer_macro()
Dim num_entries As Integer
Dim FOF As Variant
FOF = "Aetos"

Set myexplorer = Application.ActiveExplorer
Set active_fldr_name = myexplorer.CurrentFolder
If InStr(1, active_fldr_name, FOF_mgrs, vbTextCompare) Then
Set myNamespace = Application.GetNamespace("MAPI")
Set myfolder = myexplorer.CurrentFolder
Set myNewFolder = myfolder.Folders.Add(FOF)
End If
End Sub

P.S. What is the HTML tag that changes the appearance of the code?

Copying Files And Moving Them To A New Folder
I'm making a program that takes install files and moves them to the appropriate folders..
I've checked a few things, but I can't seem to figure this out.
(My example doesn't do anything..)

Code:
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
'
Private Sub Form_Load()
CopyFile App.Path & "Install Fileslicense.txt", installpath, 0
End Sub
That is an example..

Automatic Location Of A Folder And Moving
FUNTIME ! For this question and example, lets say that every computer has a folder called Funtime, and all of the files in the Funtime folder are text (.txt) documents.

I have to extract the files from the Funtime Folder, but here is the problem. One User has 9.x, so the system path is C:/Windows/Funtime. The next User has NT, so the path is C:/WINNT/Funtime. The next User has Windows 2000 Professional or XP, so the path is C:/Documents and Settings/Funtime. These are default locations, so I don't want to bother the settings or create a special folder.

How can I extract from all of these different locations and place into another folder? Since hardcoding C:/Windows/Funtime will only work for 9.x and not the others, that wouldn't do the job. Somehow there must be a way to extract from all of the different systems by having VB find the Funtime folder. And, keep in mind, the next version of Windows might have Funtime folder in a path such as C:/Windows/Personal/Funtime. Who knows?

Any Help? Thanks.

Moving .msg Attachment To Folder In Outlook
I'M STUCK

I want to be able to take all attachments from a specific Sender and move these attachments which are *.msg attachments to a folder within Outlook.

I can move all the emails sent from someone to a folder, and I can save the attachments from a certain sender to a file using the SaveAsFile fcn.

But how do I get the file back into an outlook Folder

I have no clue, I'm quite new at this, and any help would be greatly appreciated.


----------------------------------------------------------------------------------------------------------------------
Music is the pleasure the human soul expierences from counting without being aware that it is counting.
Leibniz, Gottfried Whilhem (1646-1716)

Copyright © 2005-08 www.BigResource.com, All rights reserved