tervehdys, mitenkäs saan kerrottua parametrejä excelin koodista käsin dos komennoille?
elikkä rmdir toimii hyvin ilman /s parametriä kunhan kansio on tyhjä mutta miten saan tuon /s parametrin tai vastaavan mukaan jotta voisin poistaa kansioita joissa on sälää
Sub toinen()
usrinput = InputBox("anna etsimäsi kansion numero", "kansio haku")
path = "c:\" & usrinput
RmDir /s path
End Sub
Tai vaihtoehtoisesti jos kutsun .bat tiedostoa tuosta koodista, niin miten saisin kiikutettua .bat tiedostoon tuon path tiedon?
Kiitoksia
etsi kansio / tuhoa kansio
6
482
Vastaukset
- Kunde Rules
Aina silta saa vastauksen, jos asiallisesti kyselet
- minä itse =)
juu kundea lähinnä ajattelin kun tälle palstalle ongelmani kirjoitin.
Tuntuu mies(puhdas arvaus) meinaan käyttäneen exceliä muutaman kerran =)
vai onko olemassa joku kysy kundelta sivusto?
Mutta nyt en apua enään kaipaa vaan kerrankin keksin itse vastauksen =)
Eli alkuperäisessä pätkässä kansio ei poistunut koska siellä oli sälää, mutta pieni kiertotie ratkaisi asian eli tyhjinsin kansion kill lausekkeella vanha koodi:
Sub toinen()
usrinput = InputBox("anna etsimäsi kansion numero", "kansio haku")
path = "c:\" & usrinput
RmDir path
End Sub
Muutettu toimiva koodi:
usrinput = InputBox("anna etsimäsi kansion numero", "kansio haku")
path = "c:\" & usrinput
fullpath = path & "\*.*"
Kill fullpath
RmDir path
End Sub - jos ei alihakemistoja
minä itse =) kirjoitti:
juu kundea lähinnä ajattelin kun tälle palstalle ongelmani kirjoitin.
Tuntuu mies(puhdas arvaus) meinaan käyttäneen exceliä muutaman kerran =)
vai onko olemassa joku kysy kundelta sivusto?
Mutta nyt en apua enään kaipaa vaan kerrankin keksin itse vastauksen =)
Eli alkuperäisessä pätkässä kansio ei poistunut koska siellä oli sälää, mutta pieni kiertotie ratkaisi asian eli tyhjinsin kansion kill lausekkeella vanha koodi:
Sub toinen()
usrinput = InputBox("anna etsimäsi kansion numero", "kansio haku")
path = "c:\" & usrinput
RmDir path
End Sub
Muutettu toimiva koodi:
usrinput = InputBox("anna etsimäsi kansion numero", "kansio haku")
path = "c:\" & usrinput
fullpath = path & "\*.*"
Kill fullpath
RmDir path
End Submutta miks ei:
usrinput = InputBox("anna etsimäsi kansion numero", "kansio haku")
path = "/s c:\" & usrinput
RmDir path
End Sub - alkup.
jos ei alihakemistoja kirjoitti:
mutta miks ei:
usrinput = InputBox("anna etsimäsi kansion numero", "kansio haku")
path = "/s c:\" & usrinput
RmDir path
End SubJoo toihan olis aivan mahtava jos vaan toimisi, mutta esimerkissäsi se /s luetaan osaksi polkua ja tämän seurauksena se ei siis toimi
eli path = /s c:\syöte
antaa vaan ilmotuksen että path not found
toi tyhjentaa kansion vaikka siella olisi tiedostojakin. Kandee olla varovainen, ettei poista jotakin tarkeatakin.
Sub PoistaKansio()
Dim fso
Dim kansio As String
kansio = "c:\Testi"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(kansio) Then
fso.DeleteFolder kansio
Else
MsgBox kansio & " ei ole olemassa!" _
, vbExclamation, "Kansiota ei loytynyt"
End If
End Sub- alkup.
Eli ongelma ratkaistu, mutta mietiskelin jo aiemmin että onkohan keinoa saada siirrettyä käyttäjän syötettä esim. .bat suoritukseen tai .vbs:ään
syöte = inputbox(" kirjota jotain")
call c:\suoritus.bat
'ja batissa suorittaisi esim tuon poiston eli
rmdir /s "c:\" & syöte
ei varmaankaan pysty sillä ovathan ihan eri ympäristöjä, mutta tulipahan vaan mieleen...
Kiitos kuitenkin edellisestä
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
SDP jo 100 % suositumpi kuin persut
Kertoo Hesarin uusin kannatuskysely. Demareiden kannatus on miltei tuplat verrattuna persuihinl. Suomen kansa ei selväst29514672Valtavasti suomalaisia asunnottomina, mutta ei yhtään somalia
tai muuta kehitysmaalaista. Mites tässä näin kävi? Tiedän hyvin, että esim. somaleita lentää ulos mm. Hekan asunnoista,1784250PS ylivoimainen nousija myös HS:n gallupissa, SDP laskee taas
https://www.verkkouutiset.fi/a/hs-gallup-sdpn-suosio-laskee-ps-nousussa/#0a7d2507 Ylivoimainen viime kuukausien nousija1363903Totuuspuolueen johtaja Jaana "prinsessa Leia" Kavonius on vangittu
Kavonius määrättiin jo keväällä 2024 poissaolevana vangittavaksi todennäköisin syin epäiltynä 13 vainoamisesta ja 24 kun4521881Kovia syytöksiä Stefan Thermaninsta.
Jättänyt taas maksamatta kohuliikemies, hupparit ja muita ostamiaan tavaroita. On soiteltu liikkeestä ja Stefan iskenyt1861875En minä kyllä enää odota sinua
Olet siellä sen harmaan kanssa. Niin, annoit minun nähdä lämpimät tunteesi siitä huolimatta. Se merkitsi kyllä paljon. O351756Jos joku luulee että kaikki käy
Sanon vain tämän. Minun kanssani ei neuvotella. Minun kanssani eletään tasavertaisesti. Jos se on liikaa, niin ovi rinn521385Joka kolmas työtön on työkyvytön
Viime vuonna työnhakuvelvoitteen ulkopuolella oli noin kolmannes työttömistä työnhakijoista. Huhheijaa, mihin suomalais1531247Sakin hivutus - ilmiö
Miten tuollainen tuollainen ilmiö kuin ”sakin hivutus” syntyy? Mitä syitä ilmiön syntymiseen tarvitaan? Onko sakissa jok661163Ei ole rohkeutta tulla jututtamaan
Voidaan me nähdä ja tervehtiä, sitäkin harvoin, mutta iso kynnys on edes mennä lähelle ja kysyä kuulumisia. Ymmärrät var81161