Comment déterminer si un chemin est relatif ou absolu dans Visual Basic Script.Comment déterminer si un chemin est relatif ou absolu avec VB Scripting Host
Dans VBA, j'appelle la fonction Win32 api PathIsRelative
Private Declare Function PathIsRelative Lib "shlwapi" _
Alias "PathIsRelativeA" _
(ByVal pszPath As String) As Long
Cependant, il est impossible d'appeler dans une DLL de VBS, donc je ne peux pas utiliser le Win32 api.
René
dim position
position = InStr("your-path", ":")
If position > 0 Then
''# absolute path
else
''# relative path
end if
set oFSO = CREATEOBJECT("Scripting.FileSystemObject")
relativePath = ""
absolutePath = "c:\test"
MsgBox UCase(relativePath) = UCase(oFSO.GetAbsolutePathName(relativePath))
MsgBox UCase(absolutePath) = UCase(oFSO.GetAbsolutePathName(absolutePath))
Je ne comprends pas comment c'est une réponse à la question? – Spike0xff
Peut-être qu'il serait mieux de cette façon:
FUNCTION IsPathAbsolute(testedPath)
set oFSO = CREATEOBJECT("Scripting.FileSystemObject")
IsPathAbsolute = UCASE(testedPath) = UCASE(oFSO.GetAbsolutePathName(testedPath))
Ne fonctionnera pas de manière fiable, puisque GetAbsolutePathName normalise également le chemin, par ex. 'C: \ foo \ .. \ bar' sera normalisé en' C: \ bar' – peterchen
Je tiens à souligner que le; et // sont à la fois java/c/C++/etc. –
La vérification de la présence d'un deux-points n'est pas suffisante. Par exemple, 'C: \ fichier.txt' est un chemin complet alors que' C: fichier.txt' est relatif (voir http://msdn.microsoft.com/fr-fr/library/aa365247(VS.85). aspx # fully_qualified_vs._relative_paths). – Helen
@Helen: excellente information, merci mais ne peut pas comprendre où ce chemin se rapporte? – Sarfraz