روش تشخیص پوشه ویندوز برای تست وجوده یک فایل

[arash_a]

سلام دوستان
امیدوارم خوب باشید.
ممنون میشم راهنماییم کنید که چطور:
مسیر اصلی ویندوز رو به دست بیارم و از اون مسیر تو فرمان های ایجاد فایل و چک کردن وجوده فایل استفاده کنم؟

من خودم با فرمان :

Run("cmd","WAIT,HIDE /C md %SystemRoot%\proje")

درون پوشه ی ویندوز یک فولدر با نام proje ایجاد میکنم.
بعد که میخوام تو اون پوشه یه فایل متنی ایجاد کنم یا وجوده یه فایل متنی رو چک بکنم تو مسیردهی میمونم!

ممنون میشم راهنماییم کنید.
مرسی

 

[MahmoodM30]

سلام دوستان
امیدوارم خوب باشید.
ممنون میشم راهنماییم کنید که چطور:
مسیر اصلی ویندوز رو به دست بیارم و از اون مسیر تو فرمان های ایجاد فایل و چک کردن وجوده فایل استفاده کنم؟

برای این کار میتونید از چند روش استفاده کنید میتونید از پلاگین Power_Directory استفاده کنید و به این روش وجود

وجود یک فایل رو چک کنید.

PluginRun("Power_Directory","GetWindowsDir")
PluginGet("Power_Directory","data$")
filename$ = data$ + '\Project\Text.txt'
FileExist("filename$","isThere")
If (isThere = 1) Then
  MessageEx("","File Mojud Mibashad")
Else
  Exit()
End
***************************************************
filename$ = <Windows> + '\Project\Text.txt'
FileExist("filename$","isThere")
If (isThere = 1) Then
  MessageEx("","File Mojud Mibashad")
Else
  Exit()
End

من خودم با فرمان :

Run("cmd","WAIT,HIDE /C md %SystemRoot%\proje")

درون پوشه ی ویندوز یک فولدر با نام proje ایجاد میکنم.
بعد که میخوام تو اون پوشه یه فایل متنی ایجاد کنم یا وجوده یه فایل متنی رو چک بکنم تو مسیردهی میمونم!

ممنون میشم راهنماییم کنید.
مرسی

برای این کار هم میتونید دقیقا از همون کد های قبلی استفاده کنید

filename$ = <Windows> + '\Project\Text.txt'
FileExist("filename$","isThere")
If (isThere = 1) Then
  MessageEx("","File Mojud Mibashad")
Else
  Exit()
End