Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
is this an accepted way to set the path
i set a variable to the path the files are in at my location. when i take it
to the client, i have to remember to change the string to their path. so i used the environ("username") to set it. is this a normal way to do this so you don't always have to remember to change it? If UCase(Environ("UserName")) = "USER" Then ' this is me at my location fPath = "N:\My Documents\FolderName\" Else fPath = "\\ServerName\share\FolderName\" End If -- Gary |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
is this an accepted way to set the path
There is an API call called GetComputerName which returns the name of
the computer but I don't know if you can call API's with VBA I'm interested in finding out though.... |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
is this an accepted way to set the path
don't think that will help me. i am the only one that logs in here, so all i
have to do is check for my login name. if it's not me, then it must be my client. i can't check for every computer name they use. i have 4 computers here, and i always log in as me on every one. so computernames don't do me any good. -- Gary wrote in message ups.com... There is an API call called GetComputerName which returns the name of the computer but I don't know if you can call API's with VBA I'm interested in finding out though.... |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
is this an accepted way to set the path
You don't need the API
MsgBox Environ("ComputerName") That bieng said yes you can access the API's -- HTH... Jim Thomlinson " wrote: There is an API call called GetComputerName which returns the name of the computer but I don't know if you can call API's with VBA I'm interested in finding out though.... |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
is this an accepted way to set the path
That seems acceptable. You could also see what the UNC is for the local N
drive with this function which may or may not help... Declare Function WNetGetConnection Lib "mpr.dll" Alias "WNetGetConnectionA" ( _ ByVal lpszLocalName As String, _ ByVal lpszRemoteName As String, _ ByRef cbRemoteName As Long) As Long Sub Test() MsgBox UNCfromLocalDriveName("N") End Sub Function UNCfromLocalDriveName(strLocalDrive) As String 'Find UNC from Local path 'i.e. Local drive "F:" = "\\RdaServer3\sys1" ' example of usage: UNCfromLocalDriveName("P") <-Actual Drive Letter ' or UNCfromLocalDriveName(A2) <-Cell reference ' Dim sLocal As String Dim sRemote As String * 255 Dim lLen As Long Application.Volatile sRemote = String$(255, Chr$(32)) lLen = 255 sLocal = strLocalDrive & ":" WNetGetConnection sLocal, sRemote, lLen UNCfromLocalDriveName = Trim(sRemote) End Function -- HTH... Jim Thomlinson "Gary Keramidas" wrote: i set a variable to the path the files are in at my location. when i take it to the client, i have to remember to change the string to their path. so i used the environ("username") to set it. is this a normal way to do this so you don't always have to remember to change it? If UCase(Environ("UserName")) = "USER" Then ' this is me at my location fPath = "N:\My Documents\FolderName\" Else fPath = "\\ServerName\share\FolderName\" End If -- Gary |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
From Accepted Bid to Purchase Order | Excel Discussion (Misc queries) | |||
No. of digits accepted in one cell | Excel Worksheet Functions | |||
using a selection box and moving the accepted data | Excel Worksheet Functions | |||
Inconsistency in how Range object is accepted? | Excel Programming | |||
line not accepted ? | Excel Programming |