投稿日 | : 2004/06/29(Tue) 16:45 |
投稿者 | : dai |
Eメール | : dee_bassist@hotmail.com |
URL | : http://homepage2.nifty.com/Dee/ |
タイトル | : Re: パスがサーバー名の場所にカレントを移動させたい。 |
APIでよろしければ...
SetCurrentDirectoryでドライブとフォルダの移動が可能です。
もし、1階層づつフォルダ移動&フォルダ作成を繰り返し行っているのであれば、
代わりに、MakeSureDirectoryPathExistsで一発でフォルダを作成できます。
Declare Function SetCurrentDirectory _
Lib "kernel32" Alias "SetCurrentDirectoryA" ( _
ByVal CurrentDir As String) As Long
Declare Function MakeSureDirectoryPathExists _
Lib "imagehlp.dll" (ByVal DirHelp As String) As Long