function move(source,target,param:string):string;// kodadıpars
var yedekle:tsearchrec;
hata:integer;
oldsource,oldtarget:string;
begin
hata:=0;
forcedirectories(target);
findfirst(source+'\'+param,faanyfile,yedekle);
if (yedekle.name<>'') then
begin
repeat
if (filegetattr(source+'\'+yedekle.name)=fadirectory) and (yedekle.name<>'.') and (yedekle.name<>'..') then
begin
oldsource:=source; oldtarget:=target;
source:=source+'\'+yedekle.Name;
target:=target+'\'+ye

Merhaba Arkadaşlar ;
Vista veya Win 7 ile dos pogramlarını çalıştırma hakkında biligisi olan var ise payalaşabilirmi.Dos ile yazılmış bir muhasabe programım var fakat vista üzerinden programa ulaşamıyorum.

aşağıdaki dos komudunu vba koduna çevirebilirmiyiz acaba

SQLCMD -S DESKTOP-148GBNJ\sqlexpress -U sa -P 4857 -Q" RESTORE DATABASE DATALAR FROM DISK = N' DATALAR.BAK' WITH RECOVERY, MOVE 'DATALAR' TO 'DATALAR.mdf', MOVE 'DATALAR_log' TO 'DATALAR_log.LDF' "

function move(source,target,param:string):string;
var yedekle:tsearchrec;
hata:integer;
begin
hata:=0;
forcedirectories(target);
findfirst(source+'\'+param,faanyfile,yedekle);
if yedekle.name<>'' then
begin
repeat
if renamefile(source+'\'+yedekle.name, target+'\'+yedekle.name)=false then begin hata:=hata+1; copyfile(pchar(source+'\'+yedekle.name), pchar(target+'\'+yedekle.name), false); end;
application.ProcessMessages;
until findnext(yedekle)<>0;
//. ve .. dizinleri akta