Solved

hot to assign to a icon a vbs script (500+500 pts)

Posted on 2008-10-15
12
351 Views
Last Modified: 2011-10-19
Admit have a dir on server: \\myserver\mydir\
In this dir have five file excel:
test_8501.xls  
test_8502.xls  
test_8503.xls  
test_8504.xls  
test_8505.xls

how to make a vbs script file:

if the user press on vbs script icon, appear a form with a text box where the user can insert a code, similar 8501.
With a button on this form, start a code to copy a xls file from server dir with the last 4 charachter 8501 and paste the excel file in c:\mydir withouit popup yes/no for overwrite the existis file with the same name of current file

hope understnd me.

Tks to all
0
Comment
Question by:sal21
  • 6
  • 5
12 Comments
 
LVL 67

Expert Comment

by:sirbounty
ID: 22720602
I think I understand...
Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")

strResp = InputBox ("Enter the code number","Input needed")
 

If objFSO.FileExists ("\\myserver\mydir\test_" & strResp & ".xls") Then

  objFSO.CopyFile "\\myserver\mydir\test_" & strResp & ".xls", "C:\mydir\", True

End If

Open in new window

0
 
LVL 67

Expert Comment

by:sirbounty
ID: 22720662
This version will allow a loop if an invalid code is entered...
Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")
 

CopyFile()
 

Set objFSO = Nothing

wscript.quit
 

Sub CopyFile()

 strResp = InputBox ("Enter the code number","Input needed", "8501")

 

  If objFSO.FileExists ("\\myserver\mydir\test_" & strResp & ".xls") Then

    objFSO.CopyFile "\\myserver\mydir\test_" & strResp & ".xls", "C:\mydir\", True

  Else

    Msgbox "Sorry, that file does not exist.  Please try again...", vbOkOnly, "Invalid File Code"

    CopyFile()

  End If

End Sub

Open in new window

0
 

Author Comment

by:sal21
ID: 22721024
Hi sirbounty...
Yuo have understand perfect my Napolitan/English (i'm live in Napoli:-) the code work very well:
But when i click on cancel button the code go in loop and reapper the form....(?!)
0
 

Author Comment

by:sal21
ID: 22721030
... or when i click on "X" on the form
0
 

Author Comment

by:sal21
ID: 22721041
... or when i click ctrl pause on the form
0
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 
LVL 67

Expert Comment

by:sirbounty
ID: 22723192
I understand...try this:
Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")

 

CopyFile()

 

Set objFSO = Nothing

wscript.quit

 

Sub CopyFile()

 strResp = InputBox ("Enter the code number","Input needed", "8501")

 

  If objFSO.FileExists ("\\myserver\mydir\test_" & strResp & ".xls") Then

    objFSO.CopyFile "\\myserver\mydir\test_" & strResp & ".xls", "C:\mydir\", True

  Else

    strResult = Msgbox "Sorry, that file does not exist.  Please try again...", vbRetryCancel, "Invalid File Code"

    If strResult = vbCancel Then Exit Sub

    CopyFile()

  End If

End Sub

Open in new window

0
 

Author Comment

by:sal21
ID: 22728852
Hi sirbounty...
with new version have the error in img attached...
To be sure attach here a your tersted version, tks.
Pizza for you!
0
 

Author Comment

by:sal21
ID: 22728857
sorry...
doc1.doc
0
 
LVL 67

Accepted Solution

by:
sirbounty earned 500 total points
ID: 22730024
Sorry about that - missed the parenthesis.
Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")

 

CopyFile()

 

Set objFSO = Nothing

wscript.quit

 

Sub CopyFile()

 strResp = InputBox ("Enter the code number","Input needed", "8501")

 If strResp = "" Then Exit Sub

  If objFSO.FileExists ("\\myserver\mydir\test_" & strResp & ".xls") Then

    objFSO.CopyFile "\\myserver\mydir\test_" & strResp & ".xls", "C:\mydir\", True

  Else

    strResult = Msgbox ("Sorry, that file does not exist.  Please try again...", vbRetryCancel, "Invalid File Code")

    If strResult = vbCancel Then Exit Sub

    CopyFile()

  End If

End Sub

Open in new window

0
 

Author Comment

by:sal21
ID: 22730181
WORK NOW!
But instead to use the standard input type tetxbox code, is possible to show a good and elegant form?
0
 
LVL 67

Expert Comment

by:sirbounty
ID: 22730926
No, that's the limitations of using plain vbscript...sorry...
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Unlike scripting languages such as C# where a semi-colon is used to indicate the end of a command, Microsoft's VBScript language relies on line breaks to determine when a command begins and ends. As you can imagine, this quickly results in messy cod…
Well hello again!  Glad to see you've made it this far without giving up.  In this, the fourth installment of my popular series, I'm going to cover functions and subroutines, what they are, and why they are useful.  Just in case you stumbled onto th…
Sending a Secure fax is easy with eFax Corporate (http://www.enterprise.efax.com). First, just open a new email message. In the To field, type your recipient's fax number @efaxsend.com. You can even send a secure international fax — just include t…
Hi friends,  in this video  I'll show you how new windows 10 user can learn the using of windows 10. Thank you.

910 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

25 Experts available now in Live!

Get 1:1 Help Now