MapBasic İle Dizin Oluşturma
MapBasic ile bir dizin oluşturmak için 2 ayrı yol kullanabiliriz:
1) Windows API si kullanarak:
Aşağıdaki program CreateDirectory
Windows API sini kullanarak C: de “Yeni Dizin (API ile)” adlı bir dizin oluşturur:
declare sub main declare sub createDir declare function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal path As String, ByVal securityAttributes As Integer) As Integer sub main call createDir end sub sub createDir if CreateDirectory("C:\Yeni Dizin (API ile)", 0) <> 0 then note "Dizin oluşturuldu." else note "Dizin oluşturulamadı." end if end sub
2) BAT dosyası kullanarak:
Aşağıdaki program önce bir BAT dosyası oluşturur, daha sonra bu BAT dosyasının içine dizin oluşturma komutunu (md) ve yeni dizinin yolunu yazar ve son olarak bu BAT dosyasını çalıştırarak dizini oluşturur:
declare sub main declare sub createDirectory sub main call createDirectory end sub sub createDirectory open file "C:\CreateDirectory.bat" for output as #1 dim dosCommand as string dosCommand = "md ""C:\Yeni Dizin (BAT ile)""" print #1, dosCommand close file #1 run program "C:\CreateDirectory.bat" end sub
Not: dosCommand = “md “”C:\Yeni Dizin (BAT ile)””” satırında ilave çift tırnakları kullanmamızın sebebi Yeni Dizin (BAT ile) dizininde boşluk karakterleri olmasıdır. Eğer oluşturulacak yeni dizin adında boşluk karakteri yoksa komut ilave tırnakları kullanmadan aşağıdaki gibi yazılabilir:
dosCommand = “md C:\YeniDizin”