Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Checking to see of a folder exists
Hi,
I'm using a DIR command to verify that a folder exists on a local C: drive. If I need to check a folder on a network drive, can I use the mapped drive letter or must I supply a UNC path to the DIR command. I don't have the resources to test this myself. TIA -- Chuck M. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Checking to see of a folder exists
I've used this before, but it's untested, uncompiled here.
Dim TestStr as string teststr = "" on error resume next teststr = dir("\\your\unc\path\here" & "\nul") on error goto 0 if teststr = "" then 'not there else 'is there end if Chuck M wrote: Hi, I'm using a DIR command to verify that a folder exists on a local C: drive. If I need to check a folder on a network drive, can I use the mapped drive letter or must I supply a UNC path to the DIR command. I don't have the resources to test this myself. TIA -- Chuck M. -- Dave Peterson |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Checking to see of a folder exists
You should use the path with the server name if distributing to other
users. If you're the only one using it, and you don't change your drive letters, using the drive letter in the path is fine. Cliff Edwards |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Checking to see of a folder exists
Thank you. The particular drive in question is mapped the same for all users.
-- Thanks. Chuck M. "ward376" wrote: You should use the path with the server name if distributing to other users. If you're the only one using it, and you don't change your drive letters, using the drive letter in the path is fine. Cliff Edwards |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Checking to see of a folder exists
Hi Dave,
I was looking for a solution for checking the existence of a server and found this post of yours and hoped it helps me, but it doesn't. It returns a wrong False value if path to be checked consists of only the server name. My aim is to separate cases of non-existence of a folder: 1. The folder doesn't exist on an existing server. 2. The folder doesn't exist because the server itself doesn't exist (e.g. its name is mis-spelled). Any idea? Regards, Stefi €žDave Peterson€ ezt Ã*rta: I've used this before, but it's untested, uncompiled here. Dim TestStr as string teststr = "" on error resume next teststr = dir("\\your\unc\path\here" & "\nul") on error goto 0 if teststr = "" then 'not there else 'is there end if Chuck M wrote: Hi, I'm using a DIR command to verify that a folder exists on a local C: drive. If I need to check a folder on a network drive, can I use the mapped drive letter or must I supply a UNC path to the DIR command. I don't have the resources to test this myself. TIA -- Chuck M. -- Dave Peterson |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Checking to see of a folder exists
Private Declare Function PathIsUNCServer Lib "shlwapi" _
Alias "PathIsUNCServerA" _ (ByVal pszPath As String) As Long Public Function IsUNCPathAServer(ByVal sPath As String) As Boolean IsUNCPathAServer = PathIsUNCServer(sPath) = 1 End Function -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "Stefi" wrote in message ... Hi Dave, I was looking for a solution for checking the existence of a server and found this post of yours and hoped it helps me, but it doesn't. It returns a wrong False value if path to be checked consists of only the server name. My aim is to separate cases of non-existence of a folder: 1. The folder doesn't exist on an existing server. 2. The folder doesn't exist because the server itself doesn't exist (e.g. its name is mis-spelled). Any idea? Regards, Stefi "Dave Peterson" ezt írta: I've used this before, but it's untested, uncompiled here. Dim TestStr as string teststr = "" on error resume next teststr = dir("\\your\unc\path\here" & "\nul") on error goto 0 if teststr = "" then 'not there else 'is there end if Chuck M wrote: Hi, I'm using a DIR command to verify that a folder exists on a local C: drive. If I need to check a folder on a network drive, can I use the mapped drive letter or must I supply a UNC path to the DIR command. I don't have the resources to test this myself. TIA -- Chuck M. -- Dave Peterson |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
Checking to see of a folder exists
Thank you Bob for your reply! It partly helped because it returns True for
any sPath meeting formal criteria (starting with \\) and False for non-meeting ones but doesn't reflect that server sPath is a really existing server or not. Any further idea? Regards, Stefi €žBob Phillips€ ezt Ã*rta: Private Declare Function PathIsUNCServer Lib "shlwapi" _ Alias "PathIsUNCServerA" _ (ByVal pszPath As String) As Long Public Function IsUNCPathAServer(ByVal sPath As String) As Boolean IsUNCPathAServer = PathIsUNCServer(sPath) = 1 End Function -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "Stefi" wrote in message ... Hi Dave, I was looking for a solution for checking the existence of a server and found this post of yours and hoped it helps me, but it doesn't. It returns a wrong False value if path to be checked consists of only the server name. My aim is to separate cases of non-existence of a folder: 1. The folder doesn't exist on an existing server. 2. The folder doesn't exist because the server itself doesn't exist (e.g. its name is mis-spelled). Any idea? Regards, Stefi "Dave Peterson" ezt Ã*rta: I've used this before, but it's untested, uncompiled here. Dim TestStr as string teststr = "" on error resume next teststr = dir("\\your\unc\path\here" & "\nul") on error goto 0 if teststr = "" then 'not there else 'is there end if Chuck M wrote: Hi, I'm using a DIR command to verify that a folder exists on a local C: drive. If I need to check a folder on a network drive, can I use the mapped drive letter or must I supply a UNC path to the DIR command. I don't have the resources to test this myself. TIA -- Chuck M. -- Dave Peterson |
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
Checking to see of a folder exists
Just pass it the server, no other path, and see
-- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "Stefi" wrote in message ... Thank you Bob for your reply! It partly helped because it returns True for any sPath meeting formal criteria (starting with \\) and False for non-meeting ones but doesn't reflect that server sPath is a really existing server or not. Any further idea? Regards, Stefi "Bob Phillips" ezt írta: Private Declare Function PathIsUNCServer Lib "shlwapi" _ Alias "PathIsUNCServerA" _ (ByVal pszPath As String) As Long Public Function IsUNCPathAServer(ByVal sPath As String) As Boolean IsUNCPathAServer = PathIsUNCServer(sPath) = 1 End Function -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "Stefi" wrote in message ... Hi Dave, I was looking for a solution for checking the existence of a server and found this post of yours and hoped it helps me, but it doesn't. It returns a wrong False value if path to be checked consists of only the server name. My aim is to separate cases of non-existence of a folder: 1. The folder doesn't exist on an existing server. 2. The folder doesn't exist because the server itself doesn't exist (e.g. its name is mis-spelled). Any idea? Regards, Stefi "Dave Peterson" ezt írta: I've used this before, but it's untested, uncompiled here. Dim TestStr as string teststr = "" on error resume next teststr = dir("\\your\unc\path\here" & "\nul") on error goto 0 if teststr = "" then 'not there else 'is there end if Chuck M wrote: Hi, I'm using a DIR command to verify that a folder exists on a local C: drive. If I need to check a folder on a network drive, can I use the mapped drive letter or must I supply a UNC path to the DIR command. I don't have the resources to test this myself. TIA -- Chuck M. -- Dave Peterson |
#9
Posted to microsoft.public.excel.programming
|
|||
|
|||
Checking to see of a folder exists
I tried it again with this test macro:
Sub test6() Dim uncserver As Boolean Dim teststr As String ' teststr = "\\s00dt002" teststr = "\s00dt002" ' teststr = "\\xxxxxxxx" uncserver = False uncserver = IsUNCPathAServer(teststr) If uncserver Then MsgBox teststr & " is there!" Else MsgBox teststr & " not there!" End If End Sub "\\s00dt002" is an existing server, "\s00dt002" and "\\xxxxxxxx" are of course not. I get " is there!" message for "\\s00dt002" and "\\xxxxxxxx", " not there!" for "\s00dt002". What I'd like to achieve is getting " is there!" message for "\\s00dt002 " not there!" for "\s00dt002" and "\\xxxxxxxx". What do I do wrong? Thanks, Stefi €žBob Phillips€ ezt Ã*rta: Just pass it the server, no other path, and see -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "Stefi" wrote in message ... Thank you Bob for your reply! It partly helped because it returns True for any sPath meeting formal criteria (starting with \\) and False for non-meeting ones but doesn't reflect that server sPath is a really existing server or not. Any further idea? Regards, Stefi "Bob Phillips" ezt Ã*rta: Private Declare Function PathIsUNCServer Lib "shlwapi" _ Alias "PathIsUNCServerA" _ (ByVal pszPath As String) As Long Public Function IsUNCPathAServer(ByVal sPath As String) As Boolean IsUNCPathAServer = PathIsUNCServer(sPath) = 1 End Function -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "Stefi" wrote in message ... Hi Dave, I was looking for a solution for checking the existence of a server and found this post of yours and hoped it helps me, but it doesn't. It returns a wrong False value if path to be checked consists of only the server name. My aim is to separate cases of non-existence of a folder: 1. The folder doesn't exist on an existing server. 2. The folder doesn't exist because the server itself doesn't exist (e.g. its name is mis-spelled). Any idea? Regards, Stefi "Dave Peterson" ezt Ã*rta: I've used this before, but it's untested, uncompiled here. Dim TestStr as string teststr = "" on error resume next teststr = dir("\\your\unc\path\here" & "\nul") on error goto 0 if teststr = "" then 'not there else 'is there end if Chuck M wrote: Hi, I'm using a DIR command to verify that a folder exists on a local C: drive. If I need to check a folder on a network drive, can I use the mapped drive letter or must I supply a UNC path to the DIR command. I don't have the resources to test this myself. TIA -- Chuck M. -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Checking if Sheet Exists? | Excel Discussion (Misc queries) | |||
Check if folder exists, if yes just copy sheet in to folder? | Excel Programming | |||
checking if an url exists | Excel Programming | |||
Checking if file exists in VBA | Excel Programming | |||
Checking to see if Folder exists | Excel Programming |