Solved

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

Posted on 2008-10-15
12
383 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 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
Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 

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
 
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

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

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

In this article we want to have a look at the directory attributes which are used by Microsoft to store the so called Security Identifiers (SID). These SIDs plays an important role in delegating and granting permissions and in authentication of trus…
With User Account Control (UAC) enabled in Windows 7, one needs to open an elevated Command Prompt in order to run scripts under administrative privileges. Although the elevated Command Prompt accomplishes the task, the question How to run as script…
This is a high-level webinar that covers the history of enterprise open source database use. It addresses both the advantages companies see in using open source database technologies, as well as the fears and reservations they might have. In this…
In this video, viewers will be given step by step instructions on adjusting mouse, pointer and cursor visibility in Microsoft Windows 10. The video seeks to educate those who are struggling with the new Windows 10 Graphical User Interface. Change Cu…

726 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